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Les TimeOut sont des pro- 
grammes qui se greffent 
sur AppleWorks. Ils sont 
disponibles à tout instant, 
sans quitter AppleWorks, 
avec l'ergonomie Apple- 
Works. Pom's les a adapté 
(en exclusivité) à la version 
française 1.4 et livre des 
manuels de référence en 
français. 


Comment leur échapper ? 
Pas simple, car se passer du 
progrès, c'est un peu re- 
venir aux roues dentées. Il 
va falloir renoncer à des 
possibilités étonnantes : 


Rendre toutes les opérations 
automatiques, utiliser la souris 
partout dans AppleWorks avec 
TiMEOuT ULrRAMacros... Créer des 
menus à l'intérieur de macro- 
commandes et profiter de toutes 
les macros de MAcroTo0oLSs. 


Imprimer avec la qualité 
Macintosh sur une cinquantaine 
d'imprimantes à aiguilles grâce à 
TImEOurT SuPERFoNTs et ses 47 po- 
lices de caractères. 


Imprimer les feuilles de calcul ‘à 
l'italienne’, en plusieurs tailles. 
TIMEOUT SIDESPREAD. 


Représenter instantanément les 
données du tableur sous forme de 
graphes avec TIm=Our GRraP&. 


TIMEOUT PAINT, ce logiciel de 
dessin en double HGR, intégré à 
AppleWorks, avec ses menus 
déroulants. 


DEsxTooLs I et ses accessoires, 
calculette, calepin, calendrier. 
même un crypteur de fichier pour 
les documents confidentiels. 


Copier des fichiers, les comparer, 
les renommer, en changer le type 
etc., travailler sur les volumes, 
toujours sans quitter Apple- 
Works, c'est TIMEOUT FILEMASTER. 


TIMEOUT PowEerPAcKx l'ensemble 
d'applications intégrées pour 
trier des colonnes, créer trois bu- 
reaux (36 fichiers) et trois presse- 
papiers, lancer un autre pro- 
gramme et revenir à AppleWorks, 
charger les catalogues dans la 
base de données, classer le 
bureau, etc. 


Travailler plus efficacement sur le 
tableur ? TIMEOUT SPREADTO0LS : 
se simplifier les largeurs de 
colonnes, recopier des lignes 
dans des colonnes — ou l'inverse. 




















Transformer les formules en 
valeurs, copier des blocs et lier des 
feuilles de calculs. 


Notes descriptives sur simple 
demande. Bon de commande en fin 
de numéro. 
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En 1505, Léonard de Vinci peint la de téléphone et un modem, il aurait 
s copies de sa 
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ans après, sans que l’on puisse toutefois toute facilité avec le monde entier. d'éventuels 
établir un lien entre ces deux événements. Il se serait ainsi connecté avec les 
S'il avait eu un Macintosh, une ligne salles de vente tout en continuant à Gmgonts ans ont passé. 
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ExXTRAFONTS 


DEUX APPLICATIONS, CoLorRFonTs 
ET EDIFONTS, QUI DONNERONT A 
VOTRE APPLEWORKS /TIMEOUT 
ENCORE PLUS DE SOUPLESSE ET DE 
PUISSANCE 


- ColorFonts donne à TimeOut SuperFonts la 
couleur. 

- _ EdiFonts est un éditeur de polices qui dépasse 
de loin les possibilités d'Edipol et FontViewer 
réunis. 


CoLorFonts 


Votre SuperFonts monochrome (version française 
Pom's) est transformé en ColorFonts, permettant 
désormais l'impression dans les sept couleurs de 
l'Imagewriter II (noir, jaune, rouge, bleu, orange, 
vert et violet), en conservant bien sûr toutes les 
possibilités de SuperFonts (polices et styles variés, 
justification à droite, tabulations, impression 
d'images). 

Les changements de couleurs peuvent, comme les 
changements de polices ou de styles, intervenir à 
tout endroit, même au milieu d'un mot. Vous 
pouvez aussi imprimer une image dans la couleur 
souhaitée. 


En bonus, ColorFonts vous donne aussi accès aux 
caractères normalement inaccessibles par Super- 
Fonts (codes 0 à 31). 


Bien entendu, les commandes habituelles restent 
inchangées. 


ColorFonts est compatible avec les autres impri- 
mantes, mais imprime alors en monochrome. 


de DANIEL LUROT 


EDIFONTS 
Une nouvelle application TimeOut 


Avec EdiFonts, vous pourrez visualiser, modifier et 
imprimer vos polices de caractères, mais aussi en 
créer de nouvelles (en partant de zéro), copier des 
caractères d’une police vers une autre. Tout ceci 
sans quitter AppleWorks ! 

Avec à votre disposition un index des polices 
(analogue à l'index des fichiers AppleWorks) per- 
mettant de travailler sur plusieurs polices (jusqu'à 
sept à la fois). 


Affichage de la police page par page, commandes 
ergonomiques 

Accès rapide aux caractères désirés 

Copie d'écran graphique 

Impression de la police complète 

Visualisation individuelle et modification des 
caractères 

Édition rapide grâce à des commandes puis- 
santes : insertion ou effacement de colonnes ou 
de lignes — déplacement du caractère tout 
entier dans les quatre directions — effacement 
de la grille d'édition — modification des ‘width'et 
‘offset 

Création de nouveaux caractères 

Copie de caractères interne, vers le presse-papiers, 
du presse-papiers 

Suppression de caractères 

Visualisation, impression et modification des 
paramètres globaux de la police — firstC — 
lastC — leading et kernMax — ascent — descent 
— nom de la police 





La disquette ExtraFonts existe en 5,25"/140Koet 3,5"/800Ko. ExtraFonts est compatible avec les Apple 


//e 128Ko, //c, IIGS. 


ColorFonts nécessite AppleWorks, une ImageWriter II et TimeOut SuperFonts en version française. 
EdiFonts nécessite AppleWorks et au moins un TimeOut en version française. 


ExtraFonts : 500,00 F — Carte Joker : 450,00 F — Bon de commande page 70 
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Éditorial 


Apple Expo 


La grande fête automnale d'Apple aura lieu cette année dans 
le CNIT rénové de la Défense. Apple profite de ce nouveau 
cadre pour améliorer encore l'accueil du visiteur, ‘look’ des 
stands, cartes d'identification magnétiques pour les 
visiteurs. 

Comme l'an passé nous serons à votre écoute, stand M9; vous 
rencontrerez également des auteurs de Pom's présents 
chacun des quatre jours du 27 au 30 septembre. 

C'est pour nous une occasion de vous offrir des invitations, 
lisez page 71. 


Où s'arrêtera-t-il ? 


Daniel Lurot frappe encore : SuperFonts imprime en couleurs 
sur l'ImageWriter II et voici un éditeur de polices de 
caractères surpuissant et intégré. AppleWorks est devenu 
une plate-forme depuis laquelle, avec la souris, on travaille 
des textes, on crée des graphes associés au tableur, on copie 
des disques, on imprime ‘à la Mac’ le tout sous le contrôle de 
procédures automatisées… 


Notre souci de diversité dans la réalisation de votre revue 
nous conduit à ouvrir les colonnes au GSBasic avec un Puzzle 
fort élégant et au LightSpeedC sur Mac. Une belle place est 
réservée à un ‘shareware’ Mac fabuleux présenté sur six 
disquettes : à découvrir sous la plume d'Ariel Sebban qui ne 
jure plus que par ADN. 





Hervé Thiriez 




















À l'occasion de cet article, Pom'’s 
vous présente deux illustrations : un 
petit divertissement pédagogique de 
calcul mental, et un gros fichier de 
macros spécialement consacré aux 
opérations de Traitement de textes. 


Les "sources" des deux fichiers sont présentés dans l'article 
lui-même, et inclus sur la disquette Pom’s sous les noms 
CALCUL.UM et MACROS.TDT. La disquette Pom'’s 
contient en outre les deux fichiers "Task" correspondants, 
nommés CALCUL.TSK et TDT.TSK. Vous y trouverez 
enfin le fichier CALCUL.MENTAL (tableur AppleWorks) 
dont CALCUL.TSK a besoin pour fonctionner (le modèle 
en est donné à la fin de cet article) 


Note : Les deux fichiers "Task" sont prévus pour des Apple 
II (GS ou autres) dotés d'une horloge, car ils démarrent 
AppleWorks sans faire la pose pour insérer la date. L'article 
explique comment modifier la première macro du fichier 
"source" pour qu'Apple Works fasse la pause. 


Les fichiers Task 


Les fichiers "Task" sont une innovation d'UltraMacros 
inconnue des habitués de SuperMacroWorks. Ils vous 
permettent de disposer d'ensembles de macros spécifiques, 
en nombre illimité, activables à tout moment en un clin 
d'œil à partir d'Apple Works ou sélectionnables avant même 
de démarrer AppleWorks. 


Avec SMW, quand on avait besoin d'un jeu de macros 
spécifiques (différentes de celles déjà installées au 
démarrage), il fallait charger le fichier Tdt correspondant sur 
le Bureau, puis l'activer (en le compilant avec la commande 
oa-=). Ces macros, présentes en mémoire vive, 
s'évaporaient à l'extinction d'AppleWorks. 


SMVW n'autorise qu'un seul jeu de macros au démarrage 
d'AppleWorks. Pour le changer, il faut passer par une 
procédure relativement compliquée : quitter AppleWorks, 
lancer SMW, choisir l'option "Compiler", désigner le 
fichier à compiler, le compiler, indiquer à SMW 
l'emplacement d'AppleWorks, y installer le nouveau jeu de 
macros compilées, et enfin redémarrer Apple Works. 


Avec UltraMacros, l'équivalent de la compilation SMW 
avec <oa-=> reste possible, avec en prime des "finesses" 
supplémentaires : on charge le fichier Tdt de macros sur le 
Bureau, on fait Pomme-Escape pour aller au menu 





Dimitri Geystor 


TimeOut, et l'application TimeOut "Macro Compiler" 
donne le choix entre : 


1. Compiler avec pause à chaque ligne ou non 
2. Compiler tout le fichier ou à partir du curseur 
seulement. 


De plus, le compilateur d'UltraMacros est intelligent", car 
il signale les fautes de syntaxe ou de logique éventuelles. 


Mais UltraMacros vous donne surtout le moyen de 
pré-compiler des jeux entiers de macros spécifiques, qui 
peuvent être çonservés sous la forme de fichiers-système 
(type SYS). 


Les avantages ? 


1. L'interchangeabilité instantanée à tout moment à partir 
d'AppleWorks (avec l'application Macro Options du 
menu TimeOut). Il n'y a plus à attendre le temps de la 
compilation, qui n'est pas négligeable dans le cas de 
gros fichiers. 

2. Le désencombrement du Bureau d'AppleWorks : les 
fichiers "Task", de type SYS, n'ont pas besoin d'y être 
chargés. 

3. La faculté de choisir le jeu de macros avant même de 
lancer AppleWorks. 

4. La possibilité d'enchaîner immédiatement sur un 
macro-programme, grâce à l'exécution automatique de 
la première ou de la deuxième macro du fichier "Task". 


Les macros d'un fichier "Task" 
sont-elles différentes ? 


Rassurez-vous, la réponse est NON. C'est la nature du 
fichier qui est différente, mais les macros dont il est issu 
sont des macros UltraMacros tout à fait normales. Il faut 
simplement réserver les DEUX premières macros aux 
fonctions de démarrage. 


— La première macro correspond au démarrage extérieur à 

AppleWorks, et exécute à votre place les gestes que 
vous faites quand vous démarrez votre copie d'AppleWorks. 
Réduite à sa plus simple expression, cette première macro 
contiendra deux RTN, correspondant aux deux poses que 
fait AppleWorks au démarrage (l'une pour insérer la 
disquette "Programme", l'autre pour valider la date). Si 
vous avez besoin d'insérer la date manuellement, il vous 
faut insérer une commande <input> entre les deux RTN. 
Reportez vous aux exemples commentés de cet article. 
Vous pouvez enfin, mais ce n'est pas obligatoire, terminer 
la première macro par un "goto" à la deuxième. 
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— La deuxième macro correspond au démarrage à partir 
d'AppleWorks, au moyen de l'application Macro 
Options. Dans ce cas la première macro est totalement 
ignorée. Sous sa plus simple expression, la deuxième 
macro pourrait être totalement vide. Mais il est 
recommandé d'y inclure un petit message qui confirme que 
les macros du fichier "Task" sélectionné ont bien été 
activées. Si vous avez prévu un macro-programme 
autonome, c'est cette macro qui enclenchera les diverses 
opérations nécessaires (voir, par exemple, le source du 
macro-programe ‘budget’ sur la disquette Pom’s n°41). 


Comment créer un fichier "Task" ? 


La disquette UltraMacros vendue par Pom’s contient les 
applications TimeOut dont vous avez besoin, à savoir 
"Macro Compiler" et "Macro Options”. 


1. Mettez le fichier "source" (Tdi) qui contient vos macros 
sur le Bureau d'AppleWorks. Compilez-le avec Macro 
Compiler. 


2. Appelez Macro Options avec Pomme-Escape, et 
choisissez l'option 2 "Créer fichier Task”. Vous serez 
invités à taper le nom du futur fichier "Task". Donnez-lui 
un nom clairement reconnaissable, faites RTN. Macro 
Options vous informe que le fichier "Task" a été créé. C'est 
tout. Si un fichier "Task" du même nom existe déjà, vous 
en êtes aussi informé, et vous avez le choix soit de 
renoncer, soit de remplacer l'ancien fichier par le nouveau. 


Comment démarrer un fichier 
"Task" ? 


1. À partir d'AppleWorks, en appelant l'application Macro 

Options, option 1. La liste des fichiers "Task" 
disponibles s'affiche, vous n'avez qu'à choisir. 
Note : il est commode d'inclure dans chaque fichier 
"Task" une troisième macro qui automatise cette 
sélection (voir exemples), et de transformer en fichiers 
"Task" vos macro-fichiers les plus courants : vous 
pourrez ainsi faire des permutations instantanées. 


2. Au moyen d'un sélecteur, du type PROSEL ou BBB. 
Note : Le propos de cet article n'est pas d'expliquer 
comment fonctionne un sélecteur. À l'intention de ceux 
qui n'ont pas encore ProSel -— mais comment ont-ils 
pu survivre sans lui ? — je précise quand même que le 
fichier ProDOS de la disquette d'UltraMacros contient le 
mini-sélecteur BBB ou Bird's Better Bye. Pour y 
accéder, il faut partir de l'écran du Basic Applesoft, taper 
BYE et faire Return. 


Souvenez-vous que : 


1. Un fichier "Task" est un fichier de type SYS qui réside 
aux côtés du fichier ULTRA.SYSTEM sur votre 
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disquette AppleWorks. Il contient des macros pré-compilées 
prêtes à l'emploi, et n'a pas besoin d'être chargé sur le 
Bureau d'AppleWorks pour être activé . 


2. On peut l'activer instantanément à partir d'AppleWorks 

par l'application Macro Options du menu TimeOut. 
Dans ce cas, la deuxième macro du fichier sera 
automatiquement exécutée. 


3. On peut aussi l'activer avant de démarrer AppleWorks 

au moyen d'un sélecteur de programmes du type ProSel 
ou Bird's Better Bye. Dans ce cas, le fichier "Task" entraîne 
automatiquement à sa suite le démarrage d'AppleWorks, et 
exécute la première macro qu'il contient. 


4. Le fichier "source" (c'est-à-dire les macros écrites en Tdt 
AppleWorks) est nécessaire une seule fois, à la création 
du fichier "Task". Ensuite, on n'en a plus besoin pour 
activer les macros, mais il est sage de l'archiver pour 
pouvoir relire les commentaires en cas de modifications. 





Fichier MACROS.TDT 


Un fichier de macro-commandes consacré au traitement de 
textes (avec plusieurs commandes inédites) 


START 


Macros de démarrage du fichier "Task" : 


<ba-$>:<all (Envoie au Menu principal 

d'AppleWorks, en cas de démarrage par 
sélecteur, hors AppleWorks) 

rtn {correspond à la pause pour insérer le 
disque Programme) 

{ input ) (ici, l'input est inhibé ) 

rtn (valide la date) 

ba-°>! (enchaîne sur la deuxième macro) 

Note : Si vous n'avez pas d'horloge, enlevez les 
parenthèses qui inhibent "input" avant le deuxième "rtn" 
afin qu'AppleWorks fasse la pose qui permettra d'insérer 
la date. 


<ba-°>:<all 
msg 


(Démarrage avec Macro Options) 
" Macros TaT activées ‘>! 


Dans cet exemple, la deuxième macro contient simplement 
un message d'information. Comme la première macro 
renvoie aussi à la deuxième, ce message s'affichera dans 
tous les cas de lancement du fichier "Task". 


Macro d'appel des fichiers "Task" : 
<ba-6>:<ail 
$0="Macro Options" 
oà-Esc find rtn rtn 
msg ‘ Choix = flèches. RTN pour valider, 
ESC pour abandonner ‘: 























begin k=key 

if k=10 down rpt else if k=-11 up rpt else 

if k=13 rtn stop else if k=27 esc esc stop 
>! 


MACROS de TRAITEMENT de TEXTES : 
ÆRESEREEESSESEMERSREMMMRMMmEE=EE 
<left>:<awp c=0 (curseur en début de ligne) 
begin 
oa-tab c=c+1 ifnot c=18 rpt>! 
<right>:<awp (curseur en fin de ligne) 
sa-left : down : left>! 


Rappel : 

Les commandes AppleWorks Pomme-flèches envoient le 
curseur au début du mot précédent (oa-left) ou suivant 
(oa-right). 

La commande UltraMacros Pomme-pleine-Rin (sa-Rin, ou 
<find>) envoie le curseur au Retour-chariot (fin de 
paragraphe) suivant. | 

Il n'existe pas de commande pour aller au début du 
paragraphe en cours. 

Rappelons aussi qu'aux yeux d'AppleWorks tout texte qui 
se termine par un Retour-chariot est un paragraphe ; à la 
limite, une ligne qui ne contiendrait qu'un seul espace serait 
quand même un paragraphe. 


La macro suivante renvoie le curseur en début de 
paragraphe, et fournit aussi en bas d'écran des informations 


précieuses pour la mise en page. Il est commode de 
l'actionner avant de créer une marge gauche ou une nouvelle 
valeur d'indentation avec les macros <sa-g> et <sa-i>. La 
macro fait la différence entre un "vrai" paragraphe (au 
moins deux lignes non-vides suivies d'un Retour-chariot), 
une ligne unique (non-vide) ou une vraie ligne vide. 


<ba-left>:<awp (curseur au début du paragraphe 
et info sur MG, IN et CI) 
sa-* (lire info options) 
$1=str$ g (définir les chaînes) 
ba-6 (formater MG) 
zoom ba-t (test ligne) 
if qg=$d0 goto sa-4 else (si code = ligne 
vide) 
k=0 (drapeau) 
begin ba-t 
Là 4 p<128 sa-( rpt else 
if p>128 sa-) rpt >! 
(:<awp 
if qg=$d0 down goto sa-5 else 
if f=1 goto sa-5 else 
if f=0 up k=2>! 


=$d0 down goto ba-L else 
=1 goto ba-L else 
O if k=0 up k=1 else 
=0 if k=1 down goto ba-L else 
if f=0 if k=2 down goto sa-5>! 
<ba-t>:<awp (test info ligne) 
t=32312 (début index des lignes) 
posn x,y (y=ligne) 
r=y*2+t-1: q=peek r: (q=code de la ligne) 
p=peek $7c01 (info ligne ordinaire) 





ba-1 >! (test : si première ligne, f=1) 
<ba-1>:<awp (teste la première ligne, 
sous-routine) 
up posn a,b 
if y=b f=1 else f=0 down>! 
<ba-L>:<awp (cas de la ligne unique, 
sous-routine) 
sa-left ba-6 sa-* p=peek 
msg "'--- Ligne unique de 
: MG= "+ $1 +", IN= " + str$ i + ", 
NH SÉES CE " "ss stop?! 
4:<awp msg '--- Ligne vide, MG= 


$7c01 z=p-128 
+ Str$ z + " car. 
CI= 


+ $S1 + ", IN= 


M pistes LE M Cm M SErSNC A LE à 
sa-left stop >! 

5:<awp msg '--- Paragraphe ; MG= " + $1 + ", 
TN MHOSEXS L +", CT Mot Sr CE "EG 


stop>! 
*:<awp (Sous-routine : Lecture des Options. 

Merci à Daniel Lurot) 

sa-left 

poke $031f,$c0:call $031b:G=peek 
$7a67 (MG) 

poke $031f,$bf:call 

poke $031f,$cl:call 
{JU=U, J, C) 

poke $031f,$c3:call 

poke $031f,$c4:call 

poke $031f,$c5:call 
{CI) 


$031a +peek 


$031a 
$031a 


$031b:I=peek {IN) 


$031b:J=peek 


$031a (LC) 
$031a (MD) 
S$031a >! 


$031b:L=peek 
$031b:D=peek 
$031b:C=peek 


Aller faire une édition, et revenir au 


point de départ : 


La macro ci-après permet (après l'avoir actionnée), de se 
déplacer n'importe-où dans le fichier, de l'éditer puis de 
revenir au point de départ en appuyant sur la touche "£". 


Tous les déplacements sont possibles : souris, flèches, 
Pomme-flèches, Pomme-1 à Pomme-9, recherches avec 
Pomme-R. 


On peut taper un texte (sauf la touche £ ), effacer avec la 
touche DEL et même avec Pomme-E (y compris effacer des 
options d'impression). 


On peut faire du couper-coller (interne, ou par le 
Presse-papiers). 


On peut même aller dans d'autres fichiers... La macro reste 
active tant qu'on n'a pas appuyé sur la touche "£" 
(d'ailleurs, le message de bas d'écran le rappelle), et elle sait 
alors retrouver automatiquement le fichier de travail sur le 
Bureau. Désolé, les autres macros ne sont pas reconnues 
pendant que <ba-e> est active. 


<bä-e>:<awp (Se déplacer ou éditer du texte, et 
revenir) 
w=peek $c54 ( N° du fichier sur le 
v = peek $7c61 : { statut zoom ? }) 
posn n,0 oa-o>FM<rtn>254<rtn esc 


Bureau ) 


posn X,y x=0-y+1 
begin 
msg " Déplacements et édition autorisés. 
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Tapez £ pour revenir au point de départ 

CCI -XS 

k=key 

ifnot k=35 print chr$ k:rpt (déplacements et 
édition) 

else (retour) 

oa-q print w rtn 

oa-L>m254<rtn rtn oà-E rtn (retouve et 
efface la marque) 

begin posn a,b (re-positionne le curseur) 

ifnot x=0 x=x-1 down rpt else 

ifnot a=n right rpt else 

msg "" : if v=0 oa-z >! 


La macro suivante nettoie tous les espaces superflus en fin 
de paragraphe. Mettez le curseur sur une ligne, pressez 
SA-W : le curseur va au premier retour chariot SUIVANT, 
et enlève les espaces qui le précèdent s'il y en a. 


w:<all (nettoie les espaces superflus en fin de 

paragraphe) 

find (va au premier retour chariot ) 

begin 

left : x = peek S$10f5 (recule, lit sous le 
curseur) 

if x = 160 then sa-del (supprime espace 
éventuel) 

rpt>! 


Cette macro recolle deux paragraphes, quel que soit le 
nombre de lignes vides qui les séparent. 


Elle sert aussi à rattraper facilement un retour chariot tapé 
par mégarde, ou à éliminer proprement un retour chariot en 
bout de ligne, en conservant les espaces éventuels. 


Le curseur doit être sur la première ligne qui suit le hiatus. 


h:<awp zoom oa-z ( affiche les R.C. ) 


up right sa-left 

x = peek S$10f5 : ifnot x = 255 then sa-rtn 
sa-del 

zoom stop (supprime un retour chariot 
involontaire) 

else 


begin (va en début de ligne) 

x = peek $10f5 : ifnot x = 255 then oa-left 
rpt elseoff 

begin ( supprime les R.C. ) 

x = peek $10f5 : ifnot x = 160 then 


del rpt else del zoom>! 
Macros de tabulation par Randy Brandt 


Idée originale de David R.Grigg ("Monsieur.Macro" 
d'Australie). 


Note : Avant d'essayer ces macros, organisez selon vos 
désirs les taquets de tabulation avec la commande 
Pomme-M. 


Avancer le texte jusqu'au taquet de tabulation suivant : le 
curseur "repousse" tout le texte. 





Pom’s n° 43 








<tab>:<all 

w = peeX $10F1 : insert (sauve type 
curseur, force insertion) 

$0 = screen 1,2,80 : (lit dans $0 la ligne 
d'affichage des taquets) 

begin 

spc : (insère un espace) 

posn x,y : (lit position du curseur) 

y = $S8ff + x : (lit pos.taquet sur buffer 


d'écran) 
z = peek y : if z = 61 then ({taquet présent 
? 61 est le "=" ) 
rpt ( répète jusqu'au taquet suivant ) 
elseoff 


if w= 1 oa-a : ctrl-x>! ( rétablit le 
curseur; la commande "vide" ctrl-x rend 
visible le nouveau curseur) 


Faire reculer le texte jusqu'au taquet 
de tabulation précédent: 


Le texte à gauche du curseur est écrasé. 


<Ctrl-X>:<awp left oa-e oa-tab rtn>!  ( 
sa-Clear sur un Ilgs) 


Aligner une colonne de chiffres ou 
justifier le texte à droite : 


Mettre le curseur au début du chiffre à aligner 


<Ctrl-D>:<awp (Justification à droite }) 
Sa-tab x = O0 (insère des espaces pour 
pousser le nombre jusqu'au taquet) 


begin 

z = peek $10F5 (lire le caractère sous le 
curseur) 

ifnot z = 160 then (espace ? si oui, saute à 
oa-left ) 


ifnot z = 172 then right : x = x + 1 
(recherche la virgule } 

rpt else 

oa-left {recule au début du nombre }) 

begin 

ifnot x = 0 then del : x = x - 1 (recule 
pour aligner les virgules ) 

rpt>! 


Aligner une colonne de nombres sur la 
virgule : 


La liste doit se terminer par une ligne vide 


<ctrl-q>:<awp 
v = peek $7c61 : (statut zoom ?) 
if v = 0 then oà-z elseoff (zoom arrière) 
sa-left (aller au début de première ligne) 
begin 
sa-ctrl-d (tabulation décimale) 
sa-left (début de ligne) 
down (ligne suivante) 
z = peek $10F5 : (caractère sous curseur ?) 
ifnot z = 255 then (continue sauf si Return) 
rpt elseoff if v = O0 oa-z>! rétablit statut 
zoom 
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—---> échantillon de liste de nombres : mettre 
le curseur sur le premier nombre, et faire 
sa-ctrl-q 


123, 34 
2,45 
1234,46 
88,00 
67890,12 


Commandes de marge gauche et 
d'indentation : 


Il est recommandé de les faire précéder de ba-left (curseur en 
début de paragraphe + informations). 


Pour un complément d'information, faites sa-V: 

-> Cette dernière macro permet de repérer exactement la 
dernière commande en vigueur pour la marge gauche, 
l'indentation ou les car/inches. 

-> Si vous souhaitez modifier l'option ainsi repérée, tapez 
aussitôt après la commande sa-T : elle posera le curseur 

| dessus. 

| -> Pour revenir ausitôt après à la ligne de travail quittée, 


| tapez sa-B. 


vers le début du texte, sa-B en descendant vers la fin. Et 

c'est sa-T qui mémorise la ligne que retrouve sa-B. 

| Si le texte est long, et si l'option est à son tout début, la 

| recherche par sa-V prendra un peu de temps - soyez patient. 

| Les spécialistes du langage machine devraient pouvoir 
réaliser la même macro en beaucoup plus rapide ; avis aux 

| amateurs, Pom’s attend vos contributions ! 





v:<awp (localiser l'option IN, MG ou CI en 

vigueur) 

msg " Options actives ? Taper G pour MG, I 
pour IN ou C pour CI ; Abandon = Esc ': 
sa-* 

begin k=key 

if k=71 $4="MG" s=217 goto ba-ctrl-x 
elseoff 

if k=103 $4="MG" s=217 goto ba-ctrl-x 
elseoff 

if k=73 $4="IN" s=222 goto ba-ctrl-x 
elseoff 

if k=105 $4="IN" s=222 goto ba-ctrl-x 
elseoff 

if k=67 $4="CI" s=219 goto ba-ctrl-x 
elseoff 

if k=99 $4="CI" s=219 goto ba-ctrl-x 
elseoff 

if k=27 msg "“":stop elseoff rpt>! 


<ba-ctrl-x>:<awp (recherche de l'option 
précédente) 
zoom Oà-—Zz 
a=32312 f=1 
posn X,Y 
b=y*2+a-1 
begin 


p=peek b 
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Attention : Ces trois macros sont conçues pour travailler 
ensemble. La macro sa-V fait la recherche en remontant 


———————————————————————— .——— .— . … .… … — … —  ….…… …— …— —————————————— 


i t p=s (si non trouvée) 

b=b-2 y=y-1 ba-3 ba-8 rpt else (continuer 
la recherche) 

b=b-1 m=peek b {si l'option est repérée) 

S$i=str$ g ba-6 (formater MG) 


msg ‘--- L'option " + $4 + " active est en 
ligne “ + str$ y + " - Au curseur MG= 
MOST ES, Clim FISCES Cr  INerN 
SCOR, LFP 


<ba-8>:<awp 
msg "--- Recherche... " + str$ y>! 


<ba-6>:<awp (formater MG) 
i=len $1 
ifnot l= 1 S$S2=left S$1,1 S$S3=right $1,1 else 
S2="0" $3=$1 elseoff 
Si1= $S2 +"," + $S3>1 


<ba-3>:<awp (si déjà début de fichier...) 


if b<y $1l=str$ g ba-6 

msg ‘- Pas d'option " + $4 + " sélectionnée 
--- Àu curseur : MG="+$1+" CI =" + 
strS out " EN =" HUSErS À 4" Msstop > 


t:<awp {trouver l'option en question) 

v=y (ligne cherchée) 

posn x,y h=y (ligne quittée) 

oa-1 oa-L>o<print $4 : rtn onerr stop 
(recherche) 

begin posn Xx,y 

if v=y rtn stop else 

>o<rpt>! 


b:<awp (retour à la ligne quittée) 
if h=0 stop else 
begin 
oa-down posn x,y if y<h rpt else 
oa-up 
begin 
down posn x,y if y=h stop else rpt>! 


Définir une nouvelle marge gauche : 
=SSSSSSSSSS=S=SSSE EEE ESSEE==Z= 
g:<awp (commande de marge gauche) 
sa-* $l=str$ g ba-6 
msg ‘--- Marge actuelle : 
+ " ; modifier ? O/N 
begin k=key 
if k=78 msg ""“: stop else 
if k=110 msg "": stop else 
ifnot k=79 ifnot k=111 rpt else 
msg " Tapez la nouvelle marge, et RIN ‘: 
SO=getstr 4: 
oa-o 
>mg< rtn sa-0 
onerr goto sa-e rtn esc msg "“":stop>! 


+ $2 + !,'" + S3 


Définir une nouvelle indentation : 
=== 2222222222— 
i:<awp (commande d'indentation ) 

$2= "Indentation Le 

sa-* $l=str$ i 

sa-k oa-o 

>in< rtn print x : rtn esc 

msg "“"s:stop>! 
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k:<awp (sous-routine) 
x=0 sa-m 
poke $7D5,S$a0 : 
begin k=key 
if k=21 if x>29 rpt elseoff 
1f k=21 x=x+1 sa-m rpt elseoff 
if k=8 if x=0 rpt elseoff 
if k=8 x=x-1 sa-m rpt elseoff 
if k=27 bell esc esc msg " Abandon ‘': stop 
elseoff 
ifnot k=13 rpt >! 


{clic souris = RTN } 


m:<awp (sous-routine) 
msg “Indenter de " + str$ x + " caractères 
; valeur actuelle IN = "+ str$ i + "": 
hilight 13,23,14,23>! 


e:<awp (sous-routine, message d'erreur) 
bell esc esc 
msg " Valeur non reconnue. Recommencez " : 
stop>! 


Nettoyage radical d'une option 
d'impression : 


Si vous souhaitez éliminer une option d'impression partout 
dans le texte, c'est la commande suivante qui fera table rase. 
Elle vous invite d'abord à indiquer quelle option vous 
souhaitez éliminer, puis passe à l'action : 


<ctrl-e>:<awp (élimine totalement l'option 

indiquée) 

zoom oa-Zz oà-1l 

msg " Nettoyage total : tapez l'option à 
éliminer : p.e. MG, MD, etc, puis RTN "' : 
oa-0 

begin 

oa-L>o<sa-0 rtn 

onerr goto ba-f (arrête en fin de parcours) 

rtn oa-E rtn rpt>! 


<ba-f>:<awp (arrête en fin de parcours) 
spc stop>! 


Effacements, insertions, inversions : 


| 


Rappel : oa-DEL et sa-DEL effacent le caractère SOUS le 
curseur. 


<spc>:<awp (INSERE UN ESPACE quel que soit le 
mode) 
p=peek $10f1 if p=1 (si mode recouvrement) 
Oa-a spc oa-a 
else spc>! (si mode insertion) 
Les trois effacements suivants envoient le texte sur le 
presse-papiers, d'où on peut le récupérer avec sa-U : 


d:<awp (efface le mot qui est sous ou devant le 
curseur) 
right oa-left 0oa-D 
>S< 
oa-right left rtn>! 
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y:<awp (efface toute la ligne) 
sa-left oa-E>S<down left rtn >! 


<ctrl-y>:<awp (efface la ligne à gauche du 
curseur) 
left><oa-D>S<sa-left><rtn>! 


u:<awp {récupère le contenu du presse-papiers) 
oa-C>D! 


z:<awp (place dans $0 le mot qui est sous ou 
devant le curseur) 
k=peek $10f1 (statut insertion/recouvrement) 
right oa-left 
begin p=peekx S$S10f5 
ifnot p=160 read rpt elseoff 
if k=0 oa-a>! 


a:<awp {échange deux caractères : le précédent 
passe devant) 
k=peek $10f1 
left read del right insert sa-0 left if k=1 
oa-a>! 


<ba-a>:<awp (échange deux mots : le précédent 
passe devant) 
sa-z oa-e oa-left rtn oa-left insert sa-0 
spc 
if k=1 oa-a>! 


Divers : 


Zéros barrés : 
Ordonner à l'imprimante d'imprimer des zéros barrés ou non 
(allumer l'imprimante d'abord !) : 


<ctrl-c>:<awp (Zéros barrés - allumez 

l'imprimante avant la macro) 

msg " Imprimer zéros barrés ? Oui = RTN / 
Non = ESC ": 

begin k=key 

ifnot k=13 ifnot k=27 rpt else pr£ 1: 

1f k=13 : print chr$ 27 + "D" + chr$ 0 + 
chr$ 1 : else 

print chr$ 27 + "2" + chr$ 0 + chr$ 1 : 
elseoff pr£ O0>! 


Survol-éclair du fichier : 


Gäauche/droite = oa-1 à oa-9, haut/bas = écran 


par écran 
<ba-Z2>:<awp 





$1 = " Flèches : dr/g = oa-1/9 ; haut/bas = 
écran par écran. RTN = Stop 
a=1l msg $1 + " ": 
begin k=key if k=10 oa-down $3=" 
Descend " bä-7 rpt else 
if k=11 oa-up $3=" Monte " ba-7 rpt 
else 
if k=8 if a=1 $2= "oa-" + str$ 


a:ba-2 $3="" rpt else 
if k=8 left a=a-1l $2= "oa-" + str$ 
a:ba-2 $3="" rpt else 
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if k=21 if a=9 S2= "oa-" + str$ 
a:ba-2 $3="" rpt else 

if k=21 right a=a+tl $2= "oa-" + str$ 
a:ba-2 $3="" rpt else 

ifnot k=13 rpt else 

msg "" : stop>! 


<ba-2>:<awp 
o=176 + à : print chr$ o : 
" : hilight 48,24,51,24>! 
<ba-7>:<awp 
msg $1 + $3 + " " : hilight 48,24,51,242>! 


msg $1 + $2 +" 


Rechercher une page : 


<ctrl-P>:<awp (localise une page) 
oa-K rtn oa-L>P<input rtn rtn>! 


Numéroter les pages et/ou insérer un 

Haut ou Pied de page : 

ES=SZ=Z===============—=—=—= 

Les numéros de pages font intervenir trois options 
d'impression différentes : 











1. L'option NO (numéro page) décide du numéro qui sera 
affecté à une page. Elle sert uniquement à modifier le 
décompte automatique des pages que tient AppleWorks. 


2. L'option PN (imprimer numéro de page) marque 
l'endroit où l'on veut imprimer le numéro de page. 
L'endroit est matérialisé par le symbole "". On peut 
l'insérer dans le corps du texte pour des utilisations 
spéciales (le numéro ne sera imprimé qu'à cet endroit du 
texte, sans être répété ailleurs) , mais normalement on 
l'insère dans le Haut de page ou le Pied de page (dans ce 
cas, il réapparaît à chaque page et les numéros augmentent 
automatiquement d'une unité à chaque nouvelle page). 


3. L'option PP (Pied de page) ou HP (Haut de page) décide 

si la pagination apparaitra en haut ou en bas à chaque 
page. Il y a une règle à observer quand on place le curseur 
pour les options HP et PP : l'option PP peut être insérée 
n'importe où dans une page, et le Pied de page apparaîtra 
dès cette page. L'option HP doit être insérée dès la 
PREMIERE ligne de la page, sinon elle n'apparaîtra qu'à la 
page suivante ; souvenez-vous de cette règle lors de la 
première phase de la macro ci-après. 


Cette macro s'utilise de la façon suivante : 


1. Tapez ba-ctri-N (Double-Pomme-Ctri-N) : AppleWorks 

affiche la pagination en vigueur. Avec les flèches, 
Pommes-flèches, souris ou oa-1 à oa-9, placez le curseur 
dans la page où vous voulez que commence l'affichage des 
pages, et faites RTN. 


2. Indiquez ensuite le numéro que vous souhaitez attribuer 

à cette page, suivi de RTN, ou faites simplement RTN 
si vous conservez la pagination d'AppleWorks (telle 
qu'affichée avec oa-K). 


3. La macro vous demande si vous avez déjà créé un haut 



















































de page ou un bas de page avec une option PN incluse ; 
si vous répondez "O", la macro se termine. Si vous 
répondez "N", vous êtes invité à choisir entre une 
pagination en haut de page ou en bas de page, et la macro 
fait le travail. Le modèle imprime le numéro de page vers 
la droite de la ligne. Cette ligne apparaîtra une seule fois 
dans votre fichier aussitôt après l'option " -------- Haut 


page” ou "------- Pied page", mais l'imprimante la répétera à 
chaque page jusqu'à la fin du texte, ou jusqu'à ce que vous 
la changiez. Vous pouvez (une fois la macro terminée) 
éditer cette ligne à votre convenance (par exemple, ajouter 
"Page "avant le symbole ”", ou un sous-titre, etc. 


Note : Cette macro convient aussi pour insérer un Pied 
de page ou un Haut de page sans pagination. Il suffit, 
une fois la macro achevée, d'éditer la ligne qui suit 
l'option en y supprimant le symbole “‘", et en insérant 
le texte souhaité. 


<ba-ctrl-n>:<awp 
oa-k rtn 
msg " Placez le curseur là où la pagination 

doit commencer, puis RTN 
begin k=key 
ifnot k=27 ifnot k=13 print chr$ k:rpt else 
if k=27 bell msg ‘ Abandon ‘: else 
if k=13 msg ‘ Tapez le nouveau N° de cette 
page, ou RTN seul pour ne rien changer ‘: 

$0= getstr 6 : 

ifnot $0="" oa-o>no< rtn sa-0 rtn esc 

elseoff 

bell msg ‘ Avez-vous déjà créé un HP ou PP 
avec une option PN ? O/N ‘: 

begin k=key 

if k=79 msg “": stop else 

if k=111 msg "“": stop else 

ifnot k=78 ifnot k=110 rpt else 

msg ‘ Voulez-vous la pagination en Haut ou 
en Pied de page ? H/P ; Esc = stop ': 

begin k=key 

ifnot k=27 ifnot k=72 ifnot k=104 ifnot k=80 
ifnot k=112 rpt else 


if k=27 msg ‘" Abandon ‘ : stop else 
if k=72 S$SO="HP" elseoff 
if k=104 SO="HP" elseoff 
if k=80 $0="PP" elseoff 
if k=112 $O="pp" elseoff 


oä-o sa-0 rtn esc sa-left rtn up c=0 
begin spc c=c+1 ifnot c=60 rpt else 
oa-o>PN<rtn esc stop>! 


Sauvegarde automatique si vous avez une 
horloge : 


En faisant Double-Pomme-Ctrl-A vous mettez en route | 
sauvegarde automatique (horloge nécessaire). Le fichier e 
cours sera sauvegardé toutes les 5 minutes environ. 


La fréquence peut être modifiée (deuxième ligne). 


Si vous êtes dans un menu au moment du déclenchement 
la sauvegarde, celle-ci n'aura pas lieu, mais se fera la foi 











d'après. 


<ba-ctrl-a>:<all $0 = time24 : H = val $0 : S0 
= right $0, 2 : 
M = val $0 + 5 : ( le 5 veut dire 5 minutes 
entre chaque sauvegarde) 
msg " Sauvegarde automatique enclenchée " : 
wäake ba-ctrl-b at H:M>! 


<ba-ctrl-b>:<all x = peek $e86: if x = O then 
oa-s elseoff ba-ctrl-a>! vérifie que le 
fichier est bien à l'écran au moment de la 
sauvegarde par oa-s. 


Faites Pomme-Ouverte-CONTROL-N pour annuler la 
sauvegarde automatique. 


end 


Rappel des commandes de Tdt 
disponibles : 


sa-left Curseur en début de ligne 

sa-right  Curseur en fin de ligne 

oa-left Curseur au début du mot précédent 

oa-right Curseur au début du mot suivant 

sa-rtn Curseur au Retour-chariot suivant 

ba-left  Curseur au début du paragraphe courant, et infos 
sur valeurs MG, IN, CT et type de ligne 

ba-e Aller éditer, déplacer, copier du texte puis revenir 
automatiquent au fichier et point exacts de départ 

sa-w Nettoyer les espaces superflus en fin de 
paragraphe 

sa-h Coller 2 paragraphes 

sa-tab Repousser le texte au taquet de tabulation suivant 

sa-ctrl-x  Ramener le texte au taquet de tabulation précédent 

sa-ctrl-d Aligner une colonne de chiffres, ou justifie à 
droite 

sa-ctrl-q  Aligner une colonne de nombres sur la virgule 

sa-v Repèrer la dernière option active MG, IN ou CI 


sa-t Envoyer le cuseur sur cette option 

sa-b Ramener ensuite le curseur à la ligne de travail 
sa-g Définir une nouvelle marge gauche 

sa-i Définir une nouvelle indentation 


sa-ctrl-e  Eliminer totalement une option (au choix) 

sa-spc Insérer un espace en toutes circonstances 

sa-del Effacer le caractère sous le curseur 

oa-del Idem 

sa-d Effacer le mot sous le curseur 

oa-y Effacer la ligne à droite du surseur 

sa-y Effacer toute la ligne 

sa-ctrl-y Effacer la ligne à gauche du curseur 

sa-u Récupérer les effacements par sa-d, sa-y et 
sa-ctrl-y 

sa-z Placer dans $0 le mot sous le curseur 

sa-a Echanger deux caractères 

ba-a Echanger deux mots 

sa-ctrl-c Zéros barrés ou non barrés à l'imprimante 

ba-z Survol-éclair de tout le fichier 

sa-ctrl-p Recherche de page 

ba-ctrl-n Pagination, Hauts et Pieds de page automatiques 

ba-ctrl-a Sauvegarde automatique (horloge nécessaire) 

oa-ctrl-n Arrêt de la sauvegarde automatique 
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Fichier CALCUL.UM 


Un petit programme récréatif de calcul mental (a besoin du 
fichier Tableur CALCUL.MENTAL) 


START 


Macros de démarrage du fichier "Task" : 
SZ = === 
<ba-$>:<all (Envoie au Menu principal 
d'Appleworks, en cas de démarrage par 
sélecteur, hors AppleWorks) 
rtn {correspond à la pause pour insérer le 
disque Programme) 
{ input ) (ici, l'input est inhibé ) 
rtn (valide la date) 
ba-°>! (enchaîne sur la deuxième macro) 


Note : Si vous n'avez pas d'horloge, enlevez les 
parenthèses qui inhibent "input" avant le deuxième 
"rtn" afin qu'Appleworks fasse la pose qui permettra 
d'insérer la date. 


<ba-°>:<all (Démarrage avec Macro Options) 
msg ‘ Macros Calcul activées, Chargez 
CALCUL.MENTAL et tapez SA-L ">! 


Dans cet exemple, la deuxième macro contient un message 
d'information. Comme la première macro revoie aussi à la 
deuxième, ce message s'affichera dans tous les cas de 
lancement du fichier "Task". 


Exercice proposé : modifiez cette deuxième macro pour 
qu'elle charge automatiquement le fichier 
CALCUL.MENTAL sur le Bureau, et fasse sa-L. 


Macro d'appel des fichiers "Task" : 
<ba-6>:<all 
$0="Macro Options" 
oa-Esc find rtn rtn 
msg " Choix = flèches. RTN pour valider, 
ESC pour abandonner ‘: 
begin k=key 
if k=10 down rpt else if k=11 up rpt else 
if k=13 rtn stop else if k=27 esc esc stop 
>! 


Macros du programme : 
Szzs==z=z. 
<ba-a>:<asp d=0 m=51 n=8 o=59 p=8 
ba-1 
>plus< 
ba-2 
>+cl12+c13< 
ba-3 sa-L >! 
<ba-s>:<asp d=0 m=51 n=9 o=63 p=9 
ba-1 
>moins< 
ba-2 
>+c12-c13< 
ba-3 sa-L >! 














<ba-m>:<asp d=0 m=51 n=10 o=65 p=10 
ba-1 
>fois< 
ba-2 
>+cl2*c13< 
ba-3 sa-L >! 
<ba-d>:<asp d=1 m=51 n=11 o=59 p=11 
ba-1 
up right cell down left x=val $0 
>div.par< 
ba-2 
left left up up cell y=val $0 down down cell 
z=val $0 
a=x/y down left >Reste< right 
bell msg ‘ Indiquez le reste ‘': input 
r=val $0 
up 
right right if a=z >Juste< down else >Faux< 
down elseoff 
b=a*y c=x-b if c=r >Juste< rtn else >Faux< 
rtn 
elseoff sa-L>! 
<ba-1>:<asp 
oa-L>c<oa-y>cl2<rtn 
oa-b>L<down down down down rtn 
bell hilight m,n,0o,p 
msg ‘ Tapez un chiffre, suivi de RTN ‘: 
input down left >! 
| <ba-2>:<asp 
right bell 
msg ‘ Tapez un autre chiffre, suivi de RTN 


input down >"--------- <down 


Fichier CALCUL.MENTAL 


Voici le modèle du fichier Tableur CALCUL.MENTAL 
indispensable : Construisez-le en respectant scrupuleusment 
l'emplacement des lignes et des colonnes ! 


Fichier: CALCUL.MENTAL REVUE/AJOUT/MODIF. 


6! . 


8! Puis : Faites votre choix 


Le] 
te se 0 


hs 
hi 


hs 
LES 
_ 


Option-L (SA-L) pour lancer 


A pour 
S pour 
M pour 
D pour 
v pour 
Escape 





left >Egaie<right bell 

msg " Maintenant, tapez le résultat, 
de RTN ‘" : 

input right right>! 

<ba-3>:<asp 
rtn cell 
$1=$0 
print chr$ 43 
if $0=$1 >Juste< rtn else 
>Faux< rtn left left 

EN 


suivi 


:>c15< rtn cell oa-b rtn 


msg 
<bä-v>:<asp 
ifnot d=1 
msg ‘ Le résultat correct 
appuyez sur une touche ; 
key sa-L else 
+ Str$ à + ‘, 


msg " Le résultat était ‘ 
reste " + str$ © + '" ; appuyez sur ure 
touche ‘: key sa-L>i 
L:<asp 
bell 
msg " Faites votre choix " : 


begin k=key 
if k=65 ba-a elseoff if k=97 ba-a elseoff 
if k=83 ba-s elseoff if k=115 ba-s elseoff 
if k=77 ba-m elseoff if k=109 ba-m elseoff 
if k=68 ba-d elseoff if k=100 ba-d elseoff 
if k=86 ba-v elseoff if k=118 ba-v elseoff 
ifnot k=27 rpt else msg “ Terminé ": 
oa-L>c<oa-y>cl2<rtn 
oa-b>L<down down down down rtn 
stop>! 

end 





Esc: Menu Principal 


l'exercice, 


Addition 
Soustraction 
Multiplication 
Division 
Vérifier 

pour abandonner 
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Si vous utilisez le nouveau 
noyau Timeout.F21 de mars 89, 
vous rencontrez peut-être un 
problème pour imprimer ‘à 
partir du curseur’. Si tel est la 
cas, le programme suivant se 
charge d'apporter la modifi- 
cation nécessaire à SuperFonts. 


Veillez à ce que la disquette à 
modifier s'appelle bien 
‘/Superfonts’ ou bien modifiez 
la ligne 130. 


Bien entendu, le programme 
Basic et la patch sont sur la 
disquette d'accompagnement de 


ce numéro. 


Programme 
Patchsuperfonts 


100 ONERR GOTO 320 


110 D$ = CHR$ (4): PRINT D$"p 
r£3"": HOME : PRINT 

115 PRINT D$"prefix": INPUT P 
FXS$S 


120 PRINT D$"bload sf.pat" 

130 SF$ = "/superfonts/to.supe 
rfonts.f" 

160 HOME : PRINT 

170 PRINT "Ce patch permet l' 
emploi de TO.SUPERFONTS.F à 
vec" 

175 PRINT " la nouvelle versi 
on (mars 89) du noyau TimeO 
uer" 

180 PRINT "=== 


193 PRINT "Insérez votre disq 
ue contenant SuperFonts'": P 
RINT 

195 GOSUB 500 

200 IF À$ = 
10 

220 PRINT D$"verify "SF$ 

230 PRINT D$"bsave"SF$",a$200 
0,b$O4E2, 1$091A" 

250 PRINT "Modification réuss 


CHR$ (27) THEN 3 
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ie." 

260 GOSUB 500: IF A$ = CHR$ 
(13) THEN 130 

300 PRINT "Pressez une touche 
pour continuer ";: GET X$: 
PRINT 

310 PRINT D$'"prefix"PFX$: END 

320 EL = PEEK (218) + 256 * 
PEEK (219) 

330 IF EL = 120 THEN PRINT " 
Impossible de trouver SF.PA 
T": END 

340 IF EL = 220 THEN PRI " 
Impossible de trouver TO.SU 
PERFONTS.F": PRINT "Tapez 1 





| SI J'AVAIS EU 
CONCERTWARE* 
\ CETTE SYMPHONIE NE y 


ee PAS INACHEVE 








Un éditeur musical 
fabuleux, un pilotage des 
instruments MIDI 
d'après la partition : 
Concert Ware, c'est 
Paganini et Peterson en 
mémoire vive. 
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e nom d'accès à SuperFonts" 
: INPUT "";SF$: GOTO 220 

350 IF EL = 230 THEN PRINT " 
Impossible de modifier "SFS$S 
: GET A$: GOTO 160 

440 POKE 216,0: RESUME 

500 PRINT "Pressez Return pou 
r corriger, ou Escape pour 
quitter: "; 

505 GET A$: PRINT : IF A$ = 
CHR$ (27) THEN 520 

510 IF A$ < > CHR$S (13) THE 
N 505 

520 RETURN 


Patch Sf.pat 


Après avoir sasi ces codes sous 
moniteur, vous les sauvegarderez par : 
Bsave sf.pat, A$2000,L2330 


2000:20 6F 11 00 15 2C 2A A9 
2008:00 8D AD 21 8D A8 21 20 
2010:8A 11 56 29 20 32 DO 08 
2018:26 03 50 29 41 26 4B 29 
2020:10 26 43 29 09 26 60 A9 
2028:80 8D AD 21 DO 31 A9 80 
2030:8D A8 21 20 8A 11 7C ZA 
2038:20 A5 27 A5 88 DO E7 A5 
2040:8D 8D A9 21 A5 8E 8D AA 
2048:21 20 8A 11 80 2A 20 AS 
2050:27 A5 88 DO D1 A5 8D 8D 
2058:AB 21 A5 8E 8D AC 21 20 
2060:00 11 20 6F 11 15 08 24 
2068:29 20 75 11 15 OA OD 29 
2070:20 6F 11 29 OA BO 21 20 
2078:6F 11 29 OB DO 21 20 75 
2080:11 15 OD 1B 29 AD FB 21 
2088:20 30 11 DO 03 4C 08 26 
2090:8D FB 21 AD 5F 21 29 FC 
2098:0D FB 21 8D 5F 21 20 00 
20A0:11 20 3B 27 20 8A 11 DE 
20A8:28 20 5A 11 C9 1B FO DD 
20B0:C9 OD FO 4A C9 61 90 02 
20B8:29 DF C9 41 DO OB AD FC 
20C0:21 49 FF 8D FC 21 4C 83 
20C8:26 C9 52 DO O0B AD FD 21 
20D0:49 FF 8D FD 21 4C 83 26 
20D8:2C FD 21 30 1B C9 53 DO 
20E0:05 8D FE 21 FO BB C9 4E 
20E8:D0 05 8D FE 21 FO B2 C9 
20F0:42 DO 05 8D FE 21 FO A9 
20F8:20 15 11 4C 83 26 AD FE 
2100:21 8D SE 21 0E 5F 21 0E 











lu 


RS LE RUES LS LES RL AE, LL AL 


URLS 22 1, 


JERL LL > 





18 











2108:5F 
2110:21 
2118:20 
2120:A2 
2128:85 
2130:5D 
2138:88 
2140:AD 
2148:3A 
2150:4C 
2158:26 
2160:20 
2168:FC 
2170:1C 
2178:97 
2180:28 
2188:20 
2190:6F 
2198:21 
21A0:C9 
21A8:01 
21B0:30 
21B8:7E 
21C0:17 
21C8:A9 
21D0:13 
21D8:85 
21E0:4C 
21E8:85 
21F0:AE 
21F8:B0 
2200:D9 
2208:A5 
2210:0A 
2218:B0 
2220:8D 
2228:CF 
2230:60 
2238:69 
2240:3A 
2248:6C 
2250:20 
2258:4E 
2260:6C 
2268:20 
2270:18 
2278:72 
2280:20 
2288:20 
2290:69 
2298:70 
22A0:2D 
2228: 64 
22B0:35 
22B8:20 
22C0:73 
22C8:68 
22D0:18 
22D8: 69 
22E0:61 
22E8 :2D 
22F0:20 
22F8:65 
2300:65 
2308:74 


21 
AD 
00 
31 
OD 
11 
FO 
86 
BO 
88 
20 
6F 
21 
09 


FD 
21 

20 
81 

31 

01 

60 
C9 
29 
20 
11 
1C 
97 
28 
6F 
11 
1C 
0E 
A2 
06 
93 
28 
28 
A9 
38 
DO 
15 
00 
CS 
EC 
85 
BO 
DO 
11 

91 

69 
8D 
6F 
2D 
72 
20 
20 
4E 
20 
20 
20 
75 
20 
2D 
20 
73 
52 
74 
20 
3A 
6D 
74 
2D 
20 
2D 
6F 
20 
20 
6C 
6c 


21 
OA 
8A 
né 
8D 
20 
A5 
31 
OF 
15 
1C 
08 
27 
AD 
11 
1C 
OD 
20 
oc 
E8 
27. 
60 
60 
00 
DO 
5B 
11 
A9 
27 
85 
OD 
D5 
CD 
A5 
18 
00 
05 
6E 
2D 
6F 
20 
20 
6F 
20 
20 
53 
72 
20 
51 
64 
73 
3A 
69 
20 
20 
65 
65 
2D 
65 
2D 
6D 
63 
2E 
27 
65 


8D A0 


FO AA 


2310:20 
2318:6E 
2320:73 
2328:75 
2330:70 
2338: 3A 
2340:6E 
2348:75 
2350:65 
2358:69 
2360:3F 
2368:72 
2370:7B 
2378:72 
2380:1A 
2388:20 
2390:73 
2398:6F 
23A0:65 
2328 : 73 
23B0: 74 
23B8:28 
23C0:20 
23C8:70 
23D0:7D 
23D8: 6D 
23E0:6E 
23E8:6F 
23F0:20 
23F8: 6A 
2400:69 
2408:65 
2410:63 
2418:73 
2420:65 
2428:65 
2430:6F 
2438:69 
2440:69 
2448:6F 
2450:55 
2458:46 
2460:2E 
2468:20 
2470:20 
2478:20 
2480:68 
2488:39 
2490:6B 
2498:65 
24A0:20 
2428 : 8D 
24B0:22 
24B8:20 
24C0:02 
24C8:21 
24D0:21 
24D8:AD 
24E0:86 
24E8:A8 
24F0:F8 
24F8:6F 
2500:B1 
2508:02 
2510:30 





FRE 


00 


2518:29 
2520:02 
2528:00 
2530:70 
2538:80 
2540:B0 
2548:20 
2550:13 
2558:35 
2560:D0 
2568:35 
2570:8B 
2578:0A 
2580:E8 
2588:35 
2590:FE 
2598:D3 
25A0:48 
25A8:C9 
25B0:05 
25B8:09 
25C0:C8 
25C8: 90 
25D0:9F 
25D8:C9 
25E0:20 
25E8:6F 
25F0:11 
25F8:23 
2600:0E 
2608:10 
2610:F0 
2618:69 
2620:8A 
2628:0A 
2630:8A 
2638:AD 
2640:09 
2648:20 
2650:66 
2658:8B 
2660:C9 
2668:79 
2670:20 
2678:8C 
2680:30 
2688:99 
2690:39 
2698:00 
26A0:0F 
26A8:F0 
26B0:BD 
26B8 : OA 
26C0:39 
26C8:cC3 
26D0:39 
26D8:99 
26E0: 8C 
26E8:1B 
26F0:35 
26F8:14 
2700:F0 
2708:F0 
2710:4C 
2718:20 





7F 
7C 
8D 
FO 
8D 
58 
9F 
20 
20 
38 
20 
35 
C9 
DO 
8c 
38 
2A 
C9 
53 
A9 
80 
C9 
F3 
2B 
3A 


ES 
ZA 


35 


20 


35 


35 


C4 


20 2C 2C AC 
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2720:C2 
2728:39 
2730:2F 
2738:BD 
2740:8E 
2748:36 
2750:05 
2758:75 
2760:04 
2768:26 
2770:62 
27185:C95 
2780:2F 
2788:4C 
2790:F0 
2798:2F 
27A0:0C 
27A8:A9 
27B0:63 
27B8: OD 
27C0:2C 
27C8:2F 
27D0:75 
27D8:07 
27E0:2C 
27E8:40 
27F0:6C 
27F8:2F 
2800:8D 
2808:A0 
2810:E8 
2818:75 
2820:BB 
2828:2E 
2830:74 
2838:C3 
2840:78 
2848:0A 
2850:2F 
2858:2F 
2860:70 
2868:6D 
2870:CA 
2878:2E 
2880:2E 
2888:2E 
2890:8B 
2898:00 
28A0:EE 
28A8:00 
28B0: OA 
28B8 : 8C 
28C0:68 
28C8: 6D 
28D0:73 
28D8 : 74 
28E0:20 
28E8:FF 
28F0:35 
28F8:FF 
2900:C0 
2908:F0 
2910:2E 
2918:4C 





2D 
4C 
1D 
75 
75 
30 
25 
2F 
25 
25 
2F 
20 


EC 


FO 


2F 
20 


29 
2F 
20 
39 


E8 
95 


c8 
2F 


2F 
2E 


2F 
2F 


A9 
FA 
35 
22 


20 
A7 





36 


68 A9 
2C 68 
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Modifications Ultramacros 1.7 —> 2.2 


Dans la nouvelle version US d'UltraMacros, un bug existant dans les versions 
précédentes a été corrigé. Ce bug ‘plantait’ Appleworks lorsque qu'une longue 
variable chaîne était manipulée pendant l'affichage du menu TimeOut (ceci 
pouvait se produire par exemple au ‘réveil’ d'une macro latente). 

Pour la correction dans la version française d'UltraMacros, faire les modifications 
suivantes dans le fichier ULTRA .SYSTEM. 


Octet Chaîne à remplacer par 
à rechercher 


S001A79 00 BE 90 039 
$001B08 00 BE 90 09 
$001B1A 01 BE 91 09 
$001B23 00 BE 90 09 
$001C64 00 90 
$001C68 BE 09 


Correction du bug impression 
du Tableur 


Lors de l'impression sur disque d'un fichier Tableur (DIF/ASCI), si 
AppleWorks rencontre un problème lors de la création du fichier, il affiche, ce 
qui est logique, Impossible de commencer xXXXXXXXXXXXx, Puis 
demande Recommencer ?. Si nous répondons Oui, il affiche dans tous les cas 
XXXXXXXXXxXXx existe déjà, Détruire l'ancien, ce qui est 
souvent absurde. 


Pour corriger ce bug, il faut modifier SEG.M]1 de la manière suivante: 


UltraMacros : un STEP programmable 


Lors de la mise au point de macros, il peut être commode de disposer 
temporairement du mode STEP. Un ‘poke’ bien choisi à l'adresse SDIEC peut 
activer ou désactiver le STEP : 

poke S$dlec,Sfb : active le STEP 

poke $dlec,$23 : désactive le STEP 


G 
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DHR-AGP regroupe plus d’une vingtaine d’instructions 
accessibles très simplement depuis l'Applesoft par 
l'ampersand &. Ces instructions forment un ensemble 
complet permettant une utilisation exhaustive des 
possibilités offertes par la double haute résolution, DHR. 
Certes, il existe déjà des programmes d’utilisation de la 
page DHR, mais DHR-AGP a de nombreux atouts qui font 
de lui un programme particulièrement intéressant. 


Ce programme n'utilise que 9 octets en mémoire 
vive principale, laissant libre l’ensemble de la zone de 
mémoire gérée par l’Applesoft. Les programmes Basic et 
en assembleur pourront rester aussi longs que si DHR-AGP 
était absent. 


Principales qualités 
de structure de DHR-AGP 


++ Il est stocké et utilisé en mémoire auxiliaire ; son 
fichier source qui contient plus de 40Ko de commentaires 
est ainsi un excellent exemple d'utilisation complète des 
commutateurs logiciels de l’ Apple //. 

++ Ce programme ne monopolise pas l’utilisation de 
l’ampersand, et tout autre programme s’en servant 
fonctionnera sans modification. 

+ Ilest court : une moyenne de 150 octets par nouvelle 
instruction acquise. 


DHR-AGP 
ses possibilités graphiques 


++ Instructions PLOT, BOX, inversions vidéo, affichage de 
tous les types de pages graphiques, passage de 40 à 80 
colonnes. 

+ DHR-AGP permet de tirer meilleur parti des 
possibilités de mélanges de couleurs et surtout de création 
des différents niveaux de gris ; vous pouvez définir, puis 
utiliser vos propres mélanges de couleurs grâce à 
l'instruction pErcoLOR. Outre les “huit” couleurs du 
système, le programme vous offre donc huit couleurs 
disponibles, redéfinissables sur la base d’un motif 
élémentaire de 2 fois 14 points (accès à plus de quatre 
milliards de motifs élémentaires possibles). 

++ Il comprend une instruction de remplissage FILL AT 
x, Y permettant de remplir dans n’importe quelle couleur 
toutes les figures quelle que soit leur complexité. Utilisée 


avec l'instruction de définition des couleurs, elle permet à 
tous les graphiques d’acquérir une finesse supplémentaire. 
+ Trois instructions complémentaires assurent une 
parfaite comptabilité entre le graphisme en HGR et DHR. 
Elles permettent entre autre de faire passer un dessin créé en 
HGR sur la page DHR, et vice-versa. 

++ DHR-AGP vous offre deux pages DHR, de la même 
manière qu’il y a deux pages HGR. L'affichage de l’une et 
de l’autre est évidemment possible, et on peut également en 
dupliquer une sur l’autre. 

++ DHR-AGP possède des instruction de sauvegarde et de 
chargement d’un graphisme sur la disquette (en le 
“compactant”). 


Utilisation 


Le lancement de DHR-AGP s’effectue par : 
BRUN DHRAGP.C, AS$2000 


En effet, DHRAGP a été assemblé à l'adresse S800 mais, 
pour pouvoir l'utiliser sans crainte de détruire un 
programme Basic, il doit être chargé et exécuté à l'adresse 
S2000 de la mémoire vive principale. Le programme 
s'auto-implantera à l'adresse S800 de la mémoire auxiliaire, 
laissant de nouveau libre la mémoire principale, à 
l'exception des octets $6 à SB ct SFA à SEC qui ne doivent 
pas être détruits. 


Votre programme utilisant les fonctions de DHRAGP 
devrait être lancé par un programme du style START. DHR 
listé ci-après. 


Sur la disquette Pom’s 43 


Vous y trouverez lc programme de démonstration, l'objet 
exécutable mais aussi les sources ProCODE avec 
commentaires. 


Liste des instructions 


&PLOT X,Y [TO Xi,Y1]… [TO Xn,Yn] 
Affichage du point de coordonnées (X, Y) puis de 
droites reliant les points successifs (X1, Y1) à 
(Xn, Yn),dans la couleur courante. 


&PLOT TO X,Y [TO X1,Y1]. [TO Xn,Yn] 


Pom's n° 43 

















Identique à PLOT mais commence par relier le point 
(X, Y) au point précédemment mémorisé dans le 


pointeur. 


&INVERSE PLOT [TO] X,Y [TO X1, Y1]… 

[TO Xn, Yn] 
Instruction PLOT [TO] mais l’inversion vidéo 
remplace la couleur courante. 


&BOX X1,Y1 TO X2, Y2 
Dessine et remplit dans la couleur courante le rectangle 
dont le coin supérieur gauche est (x1, Y1) et le coin 
inférieur droit (X2, Yz) avec X2>=X1+7 et Y2>Y1. 


&INVERSE BOX X1,Y1 TO X2,Y2 
Identique à BOX mais remplacement de la couleur 
courante par l’inversion vidéo (permet une inversion 
vidéo partielle ou totale de l’écran). 


&FILL [COLOR=Col] AT X,Y (O<=col<=15) 
Remplissage dans la couleur courante (ou la couleur 
Col si COLOR=co1l est précisé) de la partie de 
l’image contenant le point (X, Y), délimités par des 
points allumés consécutifs ou les bords de l’écran. 
Cette instruction permet de remplir toutes les figures, 
quelle que soit leur forme. 


&DEF COLOR=Co1l TOA,B,C,D (8<=Col<=15) 
Redéfinition de la couleur Col aux valeurs ÀA,B,Cet 
D (comprises entre 0 et 255). 
Selon le schéma classique de la définition des masques 


de couleur. 
À B Motif élémentaire 
= | ae 





14 x 2 points couleurs possibles 


&COLOR=Col (0<=Col<=15) 
La couleur Co1 devient couleur courante pour les ins- 
tructions PLOT, BOX et FILL. 


&AGP . HCR>DHR 
Recopie le graphisme de la page DAR. Chaque point 
initial HGR est transformé en deux points juxtaposés 
sur la page DHR. Affichage de DHR. 


&AGP . DHR>TWO 
Divise la page DHR en deux parties : la moitié gauche 
est copiée sur la page HGR ct la moitié droite sur la 
page HGR2. Affichage de la page AGR. 


&AGP.TWO>DHR 


Copie HGR sur la moitié gauche de la page DÆR, et la 
page HGR2 sur la moitié droite. Instruction inverse de 
AGP.DHR>TWO. Affichage de DHR. 


Les trois instructions AGP .2> assurent une parfaite 
comptabilité entre simple et double haute résolution. 
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&STORE 


Sauve la page DAHR sur la page DHR2 virtuelle (ce 
procédé permet d’avoir deux pages DHR comme on a 
deux pages HGR). DHR2 est détruite. 


&RECALL 


Rappel de la page DHR2 sur la page DHR ou copie de la 
page DHR2 sur DAR. 


&EXCHANGE 


Échange les deux pages DHR ct DHR2 entre elles. 
Permet l'affichage de DAR2. 


&SAVE "Nom" 
Sauve sur la disquette le graphisme DEAR en la 
“compactant” : les octets inutiles ne sont pas sauvés. 
Une page DHR prend alors 15 600 octets. Aucun 
système de traitement d'erreur n'est prévu. Le nom peut 
contenir des lettres et des chiffres. 


&LOAD “Nom” 
Charge sur la page DHR le graphisme sauvé par 
&SAVE. 


&DHR [Text] 
Affichage de la page DHR avec 4 lignes de texte si 
TEXT cest précisé et si la carte 80 colonnes étendue est 
active. 


&CLS 
Efface la page DAHR et fixe le blanc 1 comme couleur 
courante (et/ou la page HGR). 


&HGR [Text] 


Affichage à l’écran de la page HGR avec 4 lignes de 
texte, éventucllement. 


&HGR2 


Affichage de HGR2. Ces instructions sont conseillées 
plutôt que les instructions du système. 


&TEXT ou 40 
Passage en mode texte 40 colonnes 


&80 
Passage en mode texte 80 colonnes si la carte 80 
colonnes est active. Le couple & 40/&80 permet des 
passages successifs à l'écran 40 et 80 colonnes. 


&&.. (instruction Ampersand étendue) 
Permet l’utilisation d’autres programmes fonctionnant 
à partir de l’interpréteur &. En fait, &4& appelle le 
programme qui se trouve à l’adresse contenue dans les 
vecteurs Ampersand avant le chargement par BRUN 
DHRAGP.C, AS$2000 de DHR-AGE. 




















Programme Start.dhr 


10 PRINT CHR$ (4) "BRUNDHRAGP.C, A$2000 
20 PRINT CHR$ (4)"-DEMONSTRATION 





Programme 
Demonstration 


10 LOMEM: 24576: TEXT : PRINT CHRS$S (4) "PR£E3": 
PRINT : VTAB 21: PRINT "DEMONSTRATION DE D 
HRAGP :": INVERSE : PRINT SPC( 60): PRINT 
s PRINT " "y: POKE 36,58: PRINT * ":; PRIN 
T SPC( 60);: NORMAL 
12 A$ = "Programme de demonstration de DHRAGP p 
ar P.M.": GOSUB 80:A$ = "& DHR TEXT:6 CLS:T 
racé d'un quadrillage avec & BOX": GOSUB 80 
: € DHR TEXT : & CLS: & COLOR= 3: FOR I = 
O0 TO 154 STEP 77: & BOX0,I TO 550,I + 4: NE 
KT T 
14 FOR I = O0 TO 544 STEP 68: & BOXI,0 TO I + 9 
,158: NEXT I:A$ = "& COLOR=Col (0<=Col<=15) 
Palette de couleurs": GOSUB 80: FOR I = 0 
TO 15: & COLOR= I: GOSUB 78: & BOXA,B TO À 
+ 53,B + 69: NEXT 
16 ÀA$ = "Exemples de couleurs redefinissables à 
vec DEFCOLOR": GOSUB 80 
18 I = INT ( RND (1) * 16): GOSUB 78:C = RND 
(1) * 256:D = RND (1) * 256: & COLOR= 8: 
£& DEF COLOR= 8 TO D,C,C,D: & BOXA,B TO À 
+ 53,B + 69: IF PEEK ( - 16384) < 127 THEN 
18 
19 PI = 3.1416: & COLOR= 0:A$ = "Trace de cour 
bes avec &PLOT": GOSUB 80: & BOX282,0 TO 55 
9,159: & COLOR= 3: FOR I = O0 TO 15:A = I * 
17.125:B = I * 9.938: & PLOT 284 + À,0 TO 
558,B TO 558 - A,159 TO 284,159 - B TO 284 
+ A,0: NEXT I 
PLOT 462,100: FOR I = O TO 120: & PLOT 
TO 422 + 40 * ( SIN (I / 60 * PI) + COS ( 
I 7 12 * PI) );:80 + 20 * (. COS (I 7 60 * PI) 
— SIN (I / 20 * PI)): NEXT 
21 AS = "Sauvegarde de cette page sur DHR2:4 ST 
ORE": GOSUB 80: & STORE :A$ = "& CLS et tr 
acé d'un cadre": GOSUB 80: & CLS: & COLOR= 
3: FOR I = O TO 12 STEP 2:A = 559 - 2 * I: 
B=2%* J:C = 159 - I 
22 & PLOT B,I TO À,I TO A,C TO B,C TO B,I TO 
B+ 1,I TO B +:-1,;C: & PLOT. A = 1/XI TOLA-:- 
1,C: NEXT I:AS$ = "Utilisation de PLOT et FI 
LL": GOSUB 80 
24 FOR I = 535 TO 25 STEP - 5: & PLOT TO I, 
SIN (I / 20) * 15 + 60: NEXT :B = 76: GOSU 
B 76:B = 110: GOSUB 76: & PLOT 285,74 TO 2 
85,146: & FILL COLOR= 9 AT 99,74: & FILL CO 
LOR= 11 AT 99,109: & FILL COLOR= 14 AT 99,1 
45 
26 A$ = "Inversion vidéo d'une partie de l'écra 
n:6& INVERSEBOX": GOSUB 80: FOR I = 1 TO 6: 
& INVERSE BOX286, 30 TO 534,80: FOR J = 1T 
O 500: NEXT J,I:A$ = "Les graphismes sont p 
lus simples avec &PLOT et &FILL": GOSUB 80: 
& COLOR= 3 


20 & 


28 FOR À = 300 TO 500 STEP 35:B = RND (1) * 5 
5 + 80: & PLOT À + 23,146 TO À,146 TO À,B 
TO À + 23,B TO À + 23,146 TO À + 31,140 TO 


A + 31,B - 6 TO À + 23,B: & 
+ 8,B - 6 TO À + 31,B - 6 
30 & FILL COLOR= 10 AT À + 9,B - 1: & FILL COL 
OR= 15 AT À + 9,B + 1: & FILL COLOR= 9 AT À 
+ 25,B: & COLOR= 3: NEXT : & PLOT 515,78 
TO 515,146: FOR I = 146 TO 80 STEP - 5: & 
PLOT 513,I TO 518,1: NEXT 
32 À = 158: GOSUB 72:A = 284: GOSUB 72:A = 412: 
GOSUB 72:A$ = "Sauvegarde de ce dessin sur 
la disquette": GOSUB 80: & SAVE "“DHRDESS" 


PLOT A,B TO À 


:A$ = "Rappel du dessin qui se trouve en DH 
R2: &RECALL": GOSUB 80: & RECALL 
34 A$ = "Rechargement du dessin sauvé: &LOAD": 


GOSUB 80: & LOAD "DHRDESS":A$ = "Echanges 
entre les pages DHR et DHR2": GOSUB 80: FOR 
I = 1 TO 10: & EXCHANGE: FOR J = 1 TO 300: 
NEXT J,I:A$ = "Division du dessin en deux 
parties HGR et HGR2": GOSUB 80 
36 & AGP.DHR > TWO:A$ = "Echanges entre les de 
ux moitiés HGR et HGR2": GOSUB 80: FOR I = 
1 TO 5: GOSUB 70: & HGR2 : GOSUB 70: & HG 
R : NEXT 
38 TEXT : HOME : PRINT "Essais avec les comman 
des 640 et &80": FOR I = 1 TO 4: & 40: GOSU 
B 70: & 80: GOSUB 70: NEXT : & AGP.TWO > DH 
R: & DHR TEXT : HOME : PRINT "** FIN DE LA 
DEMONSTRATION **" 
40 IF PEEK ( - 16384) < 127 THEN 
GOSUB 70: GOTO 40 
42 END 
70 FOR J = 1 TO 600: NEXT : RETURN 
72 & COLOR= 3: & PLOT A,35: FOR I = O0 TO 36: 
X = COS (I / 18 * PI) * 40 + A:ïY = SIN (I 
/ 18 * PI) * 20 + 35: & PLOT TO X,Y: IF 
I / 12 = INT (I / 12) THEN & PLOT TO A, 
35: & PLOT X,Y 
74 NEXT : FOR I = O TO 2:C = RND (1) * 8 + 8: 
6 FILL COLOR= C AT À = 5,I * 15 + 20: NEXT 
: RETURN 


& EXCHANGE: 


76 & PLOT 25,99: FOR I = 25 TO 285 STEP 10:A 
= RND (1) * 35: & PLOT TO I,B + A: NEXT 
: RETURN 


78 A = (I - 8 * INT (I / 8)) * 68 + 12:B = IN 
T (1 / 8) * 77 + 62: RETURN 

80 VTAB 21: HTAB 38: PRINT "Appuyez sur une to 
uche pour continuer'";: GET C$: HTAB 38: PRI 
NT SPC( 40) 

82 VTAB 23: FOR I = 54 TO 2 STEP - 1: POKE 36 
,I: PRINT LEFTS (“"+A$ +" ",58 - I);: 


NEXT : RETURN 


Récapitulation Dhragp.C 


Après avoir saisi ces codes sous moniteur, 
vous les sauvegarderez par : 


bsave dhragp.C, A$800, E$14C3 


0800:4C 22 2C 8D 05 CO 20 3B 08 8D 04 CO AS DA 30 03 
0810:8D 00 CO A5 DB 30 03 8D 56 CO A5 DC 10 03 8D 55 
0820:C0 A9 60 85 FD 4C FA 00 00 00 00 00 00 00 00 00 
0830:00 00 00 00 FF FF 03 00 00 00 00 A9 5D 85 96 A9 
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0840:13 
0850:D0 
0860:B9 
0870:85 
0880:17 
0890:A5 
08A0:B1 
08B0:C0 
08C0:C0 
08D0:08 
08E0:35 
08F0:85 
0900:c1 
0910:20 
0920:20 
0930:08 
0940:17 
0950:DF 
0960:20 
0970:29 
0980:08 
0990:B0 
09A0:A9 
09B0:38 
09C0:85 
09D0:2F 
09E0:08 
09F0:08 
0A00:AD 
0A10:85 
0A20:B0 
0A30:9D 
0A40:A9 
0A50:0A 
0A60:2A 
0A70:30 
0A80:CD 
0A90:F7 
0AA0:08 
0AB0:69 
0ACO:60 
0AD0:AA 
0AE0:07 
0AF0:8A 
0B00:EE 
0B10:A8 
0B20:AD 
0B30:A8 
0B40:08 
0B50:0B 
0B60:33 
0B70:F0 
0B80:18 
0B90:04 
0BA0:40 
0BB0:08 
0BC0:89 
0BDO:B5 
0BE0:85 
0BF0:A9 
0C00:00 
0C10:A9 
0C20:85 
0C30:03 


0C40:A9 
0Cc50:00 


0C60:c0 
0c70:20 
0c80:c9 
0c90:09 
O0CA0:2C 


85 
06 
E9 
99 
13 
98 
96 
85 
6C 
E9 
4c 
FD 
F0 


B0 


ED 


ES 


A5 


E8 


F0 


DA 


DA 
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97 
8D 
00 
A0 
A4 
85 
85 
DB 
98 
01 
E6 
8D 
09 
13 
13 
29 
A2 
co 
13 
CD 
07 
A9 
85 
28 
85 
20 
2C 
30 
08 
A5 
A5 
9B 
9A 
A8 
38 
20 
08 
20 
36 
85 
10 
A9 
ÊE 
8D 
08 
32 
08 
ED 
55 
80 
39 
B1 
1A 
4c 
02 
10 
01 
AD 
85 
85 
b7 
4c 
A9 
oc 
85 
27 
ED 
13 
FO 
2D 
CD 








B7 
08 
B9 
C8 
D1 
A5 
c8 
10 
68 
AD 
A2 
co 
3B 
28 
C1 
AD 
A0 
B0 
co 
08 
A1 
85 
AD 
85 
85 
OA 
DO 
4c 
00 
69 
C5 
9D 
85 
9c 
A5 
0B 
OA 
0B 
OA 
B1 
2E 
30 
AA 
08 
27 
49 
01 
06 
DB 
85 
08 
4D 
18 
0B 
2B 
60 
AD 
co 
AD 
8D 
20 
oc 
85 
60 


8D 
20 


FD 
3B 
4c 
8D 
08 


30 


AD 


N 
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A0 
c8 


A3 


A5 
090 


O0CBO:EB 
O0cco0:B9 
0CD0:08 
OCE0:8D 
OCFO:AD 
0D00:31 
0D10:A5 
0D20:8D 
0D30:FF 
0D40:A0 
0D50:20 
0D60:A0 
0D70:A5 
0D80:A4 
0D90:17 
0DAC:A0 
0DB0:20 
0DCO:13 
0DDO:C0 
0DE0:A0 
0DFO:20 
0E00:17 
0E10:1E 
0E20:A8 
0E30:E9 
0E40:C0 
0E50:8D 
0E60:A5 
0E70:91 

0E80:B1 

0E90:08 
0EA0:97 
0EB0:C0 
0EC0:98 
0ED0:C0 
0EE0:EB 
0EF0:54 
0F00:0F 
0F10:C0 
0F20:54 
0F30:01 

0F40:54 
0F50:13 
0F60:8C 
0F70:F7 
0F80:A0 
0F90:E1 

0FA0:00 
0FB0:B0 
0FCO0:60 
0FDO:C9 
O0FE0:B0 
O0FF0:B1 

1000:F7 
1010:A0 
1020:5C 
1030:A2 
1040:10 
1050:A0 
1060:04 
1070:13 
1080:B9 
1090:02 
10A0:98 
10B0:00 
10C0:EE 
10D0:91 

10E0:96 
10F0:96 
1100:88 
1110:91 


AD 
37 
8D 
33 
32 
08 
20 
33 
FE 
E6 
17 
00 
68 
18 
139 
00 
17 
A2 
10 
0E 
06 
13 
85 
69 


Fr 
Le 


91 
54 
8D 
A9 
A5 
26 
66 
A6 
4A 
A4 
0E 
co 
0F 
91 
A0 
8D 
co 
A0 
6A 
60 
05 
c9 
20 
DB 
8E 
8D 
8D 
B5 
20 
BE 
10 
E7 
20 
00 
co 
A2 
00 
8D 
A3 
20 
60 
98 
85 
88 
10 
A5 


2B 
0D 
2E 
08 
08 
C5 
A1 
08 
FC 
20 
13 
20 
20 
8A 
A9 
20 
13 
80 
01 
4c 
0E 
A2 
A5 
20 
49 
A5 
co 
54 
B1 
85 
96 
96 
99 
18 
96 
49 
A4 
49 
A5 
0F 
40 
91 
90 
0F 
4c 
84 
41 
L7 
4c 
CA 
D0 
c2 
B3 
75 
20 
A0 
A0 
06 
20 
B9 
D3 
BC 
05 
40 
00 
8D 
60 
96 
10 
F9 
88 


82 
AD 
AD 
A1 
01 
90 
68 
32 
FO 
13 
29 
13 
0A 
A5 
8D 
13 
56 
0E 
4c 
QE 
1A 
A0 
A7 
AA 
AA 
54 
A9 
60 
48 
A9 
97 
97 
A0 
14 
A7 
8D 
91 
8D 
54 
5D 
20 
8D 
8D 
45 
08 
A2 
DD 
A4 
0F 
8c 
60 
C1 
BO 
A2 
13 
B9 
20 
A2 
13 
BC 
10 
20 
88 
97 
88 
CO 
02 
97 
20 
54 
F8 


08 
08 
08 
A9 
32 
AD 
33 
49 
co 
23 
C3 
C1 
00 
co 
08 
47 
0E 
06 
oc 
B1 
30 
8E 
A3 
27 
co 
€0 
B1 
55 
54 
85 
26 
A5 
84 
8D 
05 
0E 
88 
0F 
A4 
A6 
00 
CO 
co 
A0 
B1 
A0 
80 
c9 
8D 
0F 
cc 
Cy 
A0 
A0 
2C 
0F 
0F 
A0 
C2 
00 
5D 
00 
E9 
80 
FA 
58 
B1 
00 
10 
8D 
DC 


AD 
85 
8D 
00 
08 
32 
08 
55 
01 
0F 
08 
F0 
84 
04 
A2 
A0 
4C 
0E 
A2 
A0 
DB 
28 
18 
20 
DO 
B1 
A7 
co 
co 
96 
56 
A5 
96 
55 
co 
98 
10 
B1 
96 
9A 
48 
A4 
B1 
98 
A0 
00 
93 
22 
CD 
A0 


LA 


AC 
04 
0F 
11 

99 
20 
BE 
A0 
02 
0F 
99 
A2 
85 
E6 
91 

96 
85 
A0 
05 
10 


2C 
96 
2F 
85 
c9 
08 
AE 
85 
03 
8D 
B0O 
04 
18 
DO 
3A 
0E 
06 
4c 
B1 
00 
4c 
0E 
BD 
00 
D5 
A5 
91 
B1 
B1 
85 
26 
96 
AD 
co 
88 
42 
E4 
A5 
c8 
A0 
58 
96 
A7 
B9 
00 
20 
00 
F0 
0F 
00 
C1 
C1 
B9 
20 
A2 
00 
71 
20 
19 
88 
A9 
00 
CD 
93 
93 
56 
8D 
97 
27 
co 
A0 


8D 
De 
20 
AE 
DO 
97 
08 
20 
0F 
08 
4C 
4c 
F5 
60 
0E 
06 
A2 
0D 
00 
17 
0B 
29 
dr 
88 
A9 
A7 
B1 
48 
91 
86 
CA 
55 
0E 
A5 
DB 
8D 
60 
98 
28 
84 
18 
co 
03 
90 
17 
23 
c8 
c9 
B1 
00 
AC 
B4 
0F 
0F 
A0 
88 
20 
13 
9B 
F7 
85 
68 
10 
B2 
97 
05 
co 
8D 
55 
4c 
20 


08 
85 
0A 
08 
EE 
11 
4B 
0A 
3F 
A2 
08 
08 
E6 
B1 
06 
A2 
A0 
D7 
17 
A2 
B1 
A2 
A6 
FA 
91 
55 
8D 
A9 
68 
A2 
F1 
91 
01 
54 
27 
co 
00 
A8 
EO0 
AD 
14 
DO 
60 
c9 
cg 
3C 
‘3C 
90 
00 
99 
A4 
B0 
00 
71 
20 
F7 
11 
5C 
20 
05 
A0 
04 
00 
8c 
97 
60 
A9 
co 
B1 
10 
00 


97 AD 


7F A2 








24 














1120:91 1300:03 
1130:A9 00 85 96 60 A2 B1 A0 00 20 17 13 C9 C5 F0 15 1310:08 99 80 1D 60 00 00 8E 3D 13 8C 3E 13 48 A2 39 
1140:C9 A0 DO 0E 20 3E OD A2 B7 A0 00 20 17 13 C9 C5 1320:A0 13 20 5D OF 8D 04 CO 68 4C C9 00 48 98 48 20 
1150:F0 03 4C E4 08 A2 B1 A0 00 20 17 13 20 3B 09 8E 1330:51 13 68 A8 68 8D 05 CO 60 8D 02 CO 20 00 00 8D 
1160:30 08 AD 2B 08 8D 2E 08 AD 2C 08 8D 2F 08 A9 00 1340:03 CO 4C 2C 13 A0 0B B9 C9 00 99 80 1B 88 10 F7 
1170:85 9A 20 98 OA AE 30 08 BD 80 1E 85 18 BD 40 1F 1350:60 A0 0B B9 80 1B 99 C9 00 88 10 F7 60 8D 00 08 
1180:85 19 E8 BD 80 1E 85 1C BD 40 1F 85 1D CA CA BD 1360:F8 A0 00 OD 3E B8 A0 00 0D 4C A8 00 0D 9E A7 00 
1190:80 1E 85 1A BD 40 1F 85 1B A9 00 8D 16 13 8D 15 1370:0D AC 42 4F 58 00 OC 6C 45 58 43 48 41 4E 47 45 
11A0:13 AD 2E 08 8D 28 08 AD 2F 08 8D 29 08 20 2A 0B 1380:00 0D FB 43 4C 53 00 0D 8B 46 49 4C 4C 00 11 35 
11B0:B9 9A 0B 8D 33 08 A9 18 20 AB 12 DO 14 38 AD 28 1390:89 00 0B FD 91 00 OC 15 90 00 OC 35 34 30 00 0B 
11C0:08 E9 01 8D 28 08 AD 29 08 E9 00 8D 29 08 4C AD 13A0:FD 38 30 00 0C 4D 41 47 50 2E 44 48 52 CF 54 57 
11D0:11 20 00 0B B9 9A O0B 8D 33 08 AD 30 08 29 O1 85 13B0:4F 00 OD CB 41 47 50 2E 54 57 4F CF 44 48 52 O0 
11E0:A5 20 Al 0A A9 18 20 AB 12 D0 29 20 9F 12 29 CE 13C0:0D E5 41 47 50 2E 91 CF 44 48 52 00 OD BA 44 48 
11F0:12 AD 30 08 29 01 49 01 85 A5 20 A1 0A 20 30 12 13D0:52 00 0B CF B7 00 10 22 B6 00 OF F6 45 52 52 00 
1200:A9 01 18 6D 28 08 8D 28 08 AD 29 08 69 00 8D 29 13E0:10 4E 00 00 00 00 2A 55 2A 55 55 2A 55 2A 7F 7F 
1210:08 4C D1 11 A4 9A DO 01 60 B9 80 1B 8D 30 08 B9 13F0:7F 7F 80 80 80 80 AA D5 AA D5 D5 AA DS5 AA FF FF 
1220:80 1C 8D 2E 08 B9 80 1D 8D 2F 08 C6 9A 4C 72 11 1400:FF FF 36 2A 2A 36 08 08 41 41 FE 3F 3F FE CA 29 
1230:20 9F 12 AD 30 08 29 01 49 01 A8 B9 34 08 85 1E 1410:29 CA C4 28 28 C4 70 AD AD 70 EA 57 57 EA 2A 55 
1240:AE 30 08 F0 2C A9 1A 20 AB 12 F0 08 A9 00 8D 16 1420:55 2A A2 00 A0 03 B9 B7 2C 85 06 A9 20 85 08 A5 
1250:13 4C 71 12 AD 16 13 DO 18 A5 1E 2D 33 08 FO EC 1430:08 85 07 A5 06 8D 05 C0 SD 80 1E A5 07 9D 40 1F 
1260:AD 16 13 DO 0C A9 01 8D 16 13 CA 20 FB 12 AE 30 1440:8D 04 CO A9 04 18 65 07 85 07 E8 8A 29 07 DO E3 
1270:08 E0 BF F0 29 A9 1C 20 AB 12 F0 08 A9 00 8D 15 1450:A5 06 49 80 85 06 8A 29 OF DO D4 E6 08 A5 08 C9 
1280:13 4C 9E 12 AD 15 13 DO 15 AS 1E 2D 33 08 FO EC 1460:24 DO CC 88 DO CO AO 05 B3 BB 2C 99 06 00 B9 C1 
1290:AD 15 13 DO 09 A9 01 8D 15 13 E8 20 FB 12 60 AD 1470:2C 99 FA 00 88 10 F1 A9 08 85 A1 A9 00 85 AO 85 
12A0:32 08 29 01 49 01 85 A5 4C Al 0A AC 31 08 30 19 1480:A2 A9 20 85 A3 8D 05 C0 A0 00 B1l A2 91 A0 88 DO 
12B0:C0 28 F0 15 8D C1 12 AD 32 08 8D BE 12 8D 54 CO 1490:F9 A5 A3 C9 2C F0 07 E6 Al E6 A3 4C 88 2C AD F6 
12C0:B1 00 8D 54 C0 2D 33 08 60 A9 FF 4C C5 12 AD 30 14A0:03 8D 39 08 AD F7 03 8D 3A 08 8D 04 C0 A2 06 8E 
12D0:08 29 01 A8 B9 34 08 85 1E AD 32 08 8D EA 12 A5 14B0:F6 03 A2 00 8E F7 03 60 50 28 00 8D 03 CO 4C 03 
12E0:1E 2D 33 08 85 1F AC 31 08 8D 54 CO A9 FF 4D 33 14C0:08 8D 02 CO 
12F0:08 31 18 05 1F 91 18 8n 54 CO 60 E6 9A A4 9A DO 
Source DHRAGP FIN BNE NORMAL STA S$CO54 
ORG 5800 STA INVERSE JMP (50098) 
Assembleur ProCODE ;-----------_--_. JMP  INVVIDEO DEUXAMP  PLA 
JMP  STARTUP+$1800 NORMAL SEC PLA 

VCTAMPER = $03F6 DEBUT STA $C005 LDA $B8 JSL CHRGET 
CHRGET = $00B1 JSR DHRAGF SBC £1 SEC 
CHRGOT = $00B7 GOTOBASC STA $C004 STA $SB8 LDA  AMPERS2 
DTHGRI = $1E80 LDA $DA LDA $B9 SBC £1 
DTHGR2 = $1F40 BMI STORE80 SBC £0 TAX 
LIGPILE = $1B80 STA $C000 STA $B9 LDA AMPERS2+1 
ABSPILEB = $1C80 STORE8O LDA $DB LDA £0 SBC £0 
ABSPILEH = $1D80 BMI HIRES STA INVERSE PHA 
nm > STA $C056 INVVIDEO COPY $B8,598 TXA 

DO 0 HIRES LDA $DC LDY £$FF PHA 
COPY MAC BPL PAGE2 NEXTCAR INY JMP  GOTOBASC 

LDA .0 STA $C055 NEXTCAR2 LDA ($96),Y QERROR  LDX £53 

STA .1 PAGE2 LDA £5$60 BEQ PART JMP  ERROR 

LDA .0+1 STA $FD JSLR CHRGET SERROR  LDX £16 

STA .1+1 JMP  $FA CMP ($96),Y ERROR LDA £$D4 

EOM AVAFIRDIQT "== eses BEQ NEXTCAR STA $FF 
ADD MAC ABSDEP HEX 0000 NOEND INY LDA £512 

CLC LIGDEP HEX 00 LDA ($96),Y STA $FE 

ADC .0 ABSARR HEX 0000 BNE NOEND LDA £$4C 

EOM LIGARR HEX 00 INY STA S$FD 
SUB MAC ABS HEX 0000 INY STA $C004 

SEC LIG HEX 00 INY JMP  $FA 

sBC .0 ABSY HEX 00 COPY $98,5B8 #Ç PLOT D==mmmmmmmmmmmmm mm mm mm 

EOM ABSRAM HEX 00 LDA ($96),Y CMDPLOT JSL CHRGET 
HGRM MAC MASK HEX 00 BNE NEXTCAR2 CMP £$C1 

LDA DTHGRI1, X COLMASKO HEX FF JMP  SERROR BEQ PLOTTO 

STA .0 COLMASK1 HEX FF PART INY JSR LECTURE 

LDA DTHGR2, X NBCOLOR HEX 03 LDA ($96),Y JSR DUPLICAT 

STA .0+#1 MASKNB HEX 00 STA $99 JMP PLOT 

EOM INVERSE HEX 00 INY PLOTTO JSL CHRGET 
JSL MAC AMPERS2 HEX 0000 LDA ($96),Y JSR DUPLICAT 

LDX £<.0 #< PROGRAMME DHR-AGP >------ STA $98 JSR LECTURE 

LDY £>.0 DHRAGP LDA £<TABLE LDA $C018 PLOT JSR TRACE 

JSR JSRINTER STA $96 STA $DA JSL CHRGOT 

EOM LDA £>TABLE LDA $CO01D CMP £$C1 
JSLR MAC STA $97 STA $DB BEQ PLOTTO 

STY $3C JSL CHRGOT LDA $CO1C RTS 

JSL .0 CMP £S$AF STA $DC de s'e serslelersronsis id > 

LDY $3C BEQ DEUXAMP STA $CO01 DUPLICAT COPY ABSARR, ABSDEP 

EOM CMP £$9E STA $C057 LDA LIGARR 
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STA  LIGDEP BEQ STEST2 ROL $AA JMP  VLI 





RTS BCC DIVFAF SEC VLRET RTS 
; BCS $SUB LDA S$AA 
PERS ER VE NE AN STEST2 LDA $9C s8C £7 BITMSK HEX 01020408102040 
LECTURE JSL $DD78 CMP 592 BCC DIVST nn > 
USL $E752 BCC DIVFAF STA SAA EXC LDY £2 
CMP £2 Ssy8 LDA $59C JMP  DIVST EXCLOOP LDA ABSARR,Y 
BCC ORDOK SUB 59A PHA 
BEQ TESTXB STA $0c DIVOK  LDA S$AA LDA ABSDEP, Y 
PLERROR JMP  QERROR LDA 59D LDX S$A9 STA ABSARR, Y 
TESTXB CPY £$30 sac 558 TAY PLA 
BCS  PLERROR STA 59D STA  MASKNB STA ABSDEP, Y 
ORDOK STA ABSARR+1 INC $9€ TXA DEY 
STY  ABSARR JMP  STESTI LSR BPL EXCLOOP 
JSL $E6FS5 DIVFAF LDX $SE STA ABSY RTS 
CPX £192 LDA $9B TXA #< DHR TEXT Dm 
BCS  PLERROR LSR AND E£1l MIXED JSL CHRGET 
STX LIGARR STA $A9 STA $AS LDY S$C052 
RTS LDA $9A EOR £$55 CMP £$89 
Rene eEeres se # ROR STA ABSRAM BEQ MIXEDSW 
TRACE LDA £0 STA $A8 RTS RTS 
STA $EF LDA S$A9 DIVYINC INC MASKN3 MIXEDSW LDA SC053 
LDA  ABSDEP+1 CMP $9D LDA MASKNB JSL CHRGET 
CMP  ABSARR+1 BEQ TESTP2 TAY RTS 
BCC NOEXCHG BCS DIVFIN CMP £7 IPS sr SRE SseSsE > 
BEQ TESTFEX JMP  INCREM BNE D?INCFIN DER JSR MIXED 
BCS  ECHANG TESTP2 LDA $A8 LDA £0 DHRGOT LDA $CO5E 
TESTFEX LDA ABSARR CMP $9C STA MASKNB LDA $C050 
CMP  ABSDEP BCS DIVFIN TAY LDA £$20 
BCS NOEXCHG INCREM INX LDA ABSRAM STA $DC 
ECHANG JSR EXC DIVFIN TXA £EOR £1 STA $E6 
LDA £$FF LDY $SF STA ABSRAM LDA £$80 
STA $EF BEQ NOTNEG CMP £$55 STA $DA 
NOEXCHG LDA LIGARR STA $AS BNE D?INCFIN STA  $DB 
CMP LIGDEP LDA LIGDEP INC ABSY LDA S$COIE 
BCS SENSPOS SUB $AS D7INCFIN LDA ABSRAM BMI TXT80GOT 
LDA £SFF JMP NEGYES AND E£l STA $CO0D 
STA $9F NOTNEG ADD LIGDEE EOR £1l STA $C952 
LDA LIGDEP NEGYES  LDX LIG STA $AS5 RTS 
SUB  LIGARR STA LIG RTS = > 
JMP  PLDEBUT JSR VLIN DIV/DEC DEC MASKNB TEXT LDA £0 
SENSPOS LDA £0 LDA ABS+1 LDA MASKNB STA $DA 
STA $9F CMP ABSARR+1 TAY STA $C051 
LDA LIGARR BNE SUITE BPL D7INCFIN STA $C05F 
SUB LIGDEP LDA ABS LDA £6 STA $DC 
PLDEBUT STA $99 CMP  ABSARR STA MASKNB RTS 
LDA  ABSARR BNE SUITE TAY É CE > 
SUB ABSDEP LDA $EF LDA  ABSRAM TEXT40 JSL CHRGET 
STA $9A CMP £SFF EOR £1 JSR TEXT 
LDA ABSARR+1 BNE PLOTFIN STA  ABSRAM TXT40GOT LDA $CUIE 
SBC ABSDEP+1 JSR EXC CMP £$55 BMI TEXT4O0CL 
STA $9B PLOTFIN RTS BEQ D7INCFIN IMPOSS STA $CcO0c 
LDA £0 SUITE JMP  PLSUITE DEC ABSY RTS 
STA $9C CALMSKIN JSR DIV7INC JMP D7INCFIN TEXT4UCL LDA £17 
STA $9D JMP CALMSK1 A D > JUMP  COLONNES 
STA $SE CALMSK JSR DIV? VLIN LDA  ABSRAM mm > 
COPY ABSDEP, ABS CALMSKI LDA BITMSK,Y STA  XVLRAM#I HGR JSR MIXED 
JSR  CALMSK STA MASK VLI HGRM $18 HGRGOT LDA £$20 
LDX LIGDEP CALCOLM LDA NBCOLOR TXA STA $DC 
STX LIG CALCOLMA ASL AND E£l STA $E6 
JSR VLIN ASL TAY HGR2SUIT LDA E£0 
LDA ABS+1 ADD $A5 LDA MASK STA  $DA 
CMP  ABSARR+1 ADC £<PALETTE AND COLMASKO, Y LDA £$80 
BNE PLSUITE STA $AS STA $1A STA $DB 
LDA ABS LDA £0 LDY ABSY STA $C050 
CMP  ABSARR TAY XVLRAM STA $C054 STA $CO5F 
BNE PLSUITE ADC £>PALETTE LDA INVERSE LDA S$SCOIE 
LDA  LIGARR STA $A6 BEQ VIDNORM BMI HGRC8A 
STA LIG LDA ($A5),Y LDA ($18),Y STA $C00C 
JMP  VLIN STA COLMASKO EOR MASK HGRC8A RTS 
PLSUITE LDA £Il INY JMP  VIDINV CS > 
ADD ABS INY VIDNORM LDA £$FF HGR2 JSL CHRGET 
STA ABS LDA ($A5),Y EOR MASK LDA £$80 
LDA ABS+1 STA COLMASK1 AND ($18),Y STA $DC 
ADC £0 RTS ORA $lA LDA £$40 
STA ABS+1 fm mm = > VIDINV STA ($18),Y STA $E6 
JSR CALMSKIN DIV7 LDY £16 PORTER Peer STA $C052 
LDA $9C COPY ABS, $AS STA $C054 JSR TXT40GOT 
ADD $99 LDA £0 CPX LIG JMP  HGR2SUIT 
STA $9C STA $AA BEQ VLRET nm > 
LDA $9D DIVST ROL S$A9 LDA $9F TEXT80 JSL CHRGET 
ADC £0 DEY BNE NEG JSR TEXT 
STA $9D BMI DIVOK INX TXT80GOT LDA $COIE 
STESTI LDA $89D ASL $A5 JMP  VLI BPL IMPOSS 
CMP  $9B ROL $A6 NEG DEX LDA £18 
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| LDA  $RAM2+1 
COLONNES STA $C000 COLROK  PHA RTS EOR £1 
| JSL $FDED JSL CHRGOT CLSPRG  LDA £0 STA  SRAM2+1 
| STA $C001 CMP £S$CI STA (S$SA5),Y TYA 
| RTS BEQ COLROK2 STA $C055 LSR 
PS BOX PE PLA STA ($A5),Y TAY 
| BOX JSL. CHRGET JMP  SERROR STA $C054 SRAM2 STA $C055 
| JSR LECTURE COLROK2 LDA £0 RTS LDA  ($A5),Y 
| JSR  DUPLICAT STA SAS STOREPRG LDA ($A5),Y STA $C054 
| JSL  CHRGOT PER STA ($A7),Y LDY $96 
| CMP £$C1 JSR CALCOLMA STA $C055 STA ($A5),Y 
BEQ BOXTO LDY £0 LDA ($A5),Y DEY 
JMP  SERROR MSUIVANT STY $18 STA S$C054 BPL  SPARTZ 
BOXTO JSL CHRGET JSL $E6F5 STA ($A9),Y ENY 
JSR LECTURE LDY $18 RTS RTS 
LDA  LIGARR TXA RECLLPRG LDA (S$A7),Y PRG2DHR LDY £0 
STA LIG STA ($AS),Y STA ($A5),Y SPARTI STY 596 
CMP  LIGDEP INY LDA ($A9),Y LDA SRAMI+I 
BCS BOXI CPY £4 STA  $C055 EOR £1 
BOXERROR JMP  QERROR BNE  MSUIVANT STA ($A5),Y STA S$RAMI+1 
BOXI LDA ABSARR+1 RTS STA $C054 LDA ($AS5),Y 
CMP  ABSDEP+1 ASS RSR ÉSSSSSSSSÉessss RTS PHA 
BCC. BOKERROR CLS JSL CHRGET EXCPRG STA $CO055 TYA 
BNE  BOX2 LDA £3 LDA ($A5),Y LSR 
LDA  ABSARR STA  NBCOLOR PHA TAY 
CMP ABSDEP LDX  £<CLSPRG LDA ($A9),Y PLA 
BCC  BOXERROR LDY £>CLSPRG STA ($A5),Y SRAMI STA $C054 
BOX2 COPY ABSARR, ABS JME  TRANSFRT PLA STA ($A5),Y 
JSR DIV? STORE  JSL CHRGET STA ($A9),Y STA  $CO54 
LDA BOXMSK2,Y LDX £<STOREPRG LDA ($A7),Y LDY $96 
Lee LDY £>STOREPRG PHA INY 
LDA ABSY JMP TRANSFERT STA $C054 CPY £40 
STA $96 RECALL JSL CHRGET LDA ($A5),Y BNE  $PARTI 
LDA ABSRAM LDX £<RECLLPRG STA ($A7),Y STX S9A 
STA $97 LOY £>RECLLPRG PLA LDX  £<READHGR2 
COPY ABSDEP, ABS JMP  TRANSFRT STA ($A5),Y LDY £>READHGR2 
JSR DIV? AGPHGDHR JSL  CHRGET RTS JSR  C9STRING 
LDA BOXMSKI,Y LDX £<PRGHGDH PRGHGDH LDA ($A5),Y LDX $9A 
STA MASK LDY  £>PRGHGDH STA 598 LDY £0 
JSR  CALCOLM JSR TRANSFRT LDA £0 SPART2 STY $96 
LDA £0 JME  AGP2DHRC STA $96 LDA  SRAM2+1 
STA $9F AGPDHR2 JSR AGPDHR2A STA  $97 EOR £1 
REBOX LDX LIGDEP LDA S$COIA STX 599 STA SRAM2+1 
JSR VLIN BPL  AGPDHR2B LDX £8 USR $C9 
LDA ABSRAM AGP2DHRB RTS $1 ASL 598 PHA 
EOR £1 AGPDHR2B JMP HGRGOT PHP ryA 
STA  ABSRAM AGPDHR2A JSL CHRGET ROL 596 LSR 
CMP £$55 LDX £<PRGDHR2 ROL $97 CLC 
BNE BOXTEST LDY  £>PRGDHR2 PLP ADC £20 
INC ABSY JMP  TRANSFRT ROL $96 TAY 
BOXTEST LDA ABSY AGP2DHR JSL CHRGET ROL 597 PLA 
CMP  $96 LDX £<PRG2DHR DEX SRAM2 STA $C054 
BCC BOXCONT LDY £>PRG2DHR BNE $1 STA  ($AS),Y 
LDA  ABSRAM JSR  TRANSFRT ASL $96 STA $C054 
CMP  $97 AGP2DHRC LDA $CO1A ROL $97 LDY $96 
BNE BOXCONT BMI  AGP2DHRB ROR $96 INY 
EOR £$55 JMP  DHRGOT LDA $97 cPY £40 
STA $A5 EXCHANGE JSL CHRGET STA ($A5),Y BNE  SPART2 
JSR CALCOLM LDX £<EXCPRG LDA $96 JSR C9LOAD 
PLA LDY £>EXCPRG STA $C055 LDY £0 
STA  MASK TRANSFRT STX TRADR+1 STA ($A5),Y RTS 
LDX LIGDEP STY TRADR+2 STA $C054 READHGR2 STA $C002 
JMP  VLIN LDX £96 LDX $99 LDA ($A7),Y 
BOXCONT LDA £S$FF TRLOOP LDA DTHGRI,X RTS STA $C003 
STA MASK STA $A5 PRGDHR2 LDY £39 RTS 
LDA  ABSRAM STA $A7 SPARTI STY $96 C9ISTRING STX C9STRADR#1 
EOR £$55 STA $A9 LDA S$RAM1+1 STY CSSTRADR+2 
STA  $A5 CLC EOR £1 JSR CSSAVE 
JSR CALCOLM LDA DTHGR2, X STA SRAMI+1 LDY £ll 
JMP REBOX STA $A6 TYA C9STRADR LDA $0009,Y 
BOXMSK1 HEX FFFEFCF8FOEOCO ADC £520 LSR STA $C9,Y 
BOXMSK2 HEX 0103070F1F3F7F STA $A8 CLC DEY 
#< COLOR Dm mme ADC £$20 ADC £20 BPL  C9STRADR 
COLOR JSL $E6FS STA $AA TAY RTS 
TXA LDY £39 SRAMI STA  $C055 #< SAVE et LOAD >------------- 
| AND E£15 “RADR JSR $0000 LDA ($A5),Y NAMEERR JMP  SERROR 
STA NBCOLOR DEY STA $C054 NAME JSL CHRGET 
RTS BPL  TRADR STA $CO04 CMP  £34 
nn = > CPX £96 LDY $96 BNE  NAMEERR 
DEFCOLOR JSL $E6F5 TXA STA ($A7),Y LDY £5 
TXA SBC £192 STA $C005 JSLR CHRGET 
| AND £15 EOR £255 DEY NAMELETT CMP £91 
CMP £8 TAX BPL SPARTI BCS  NAMEERR 
BCS COLROK CPX £192 LDY £39 CMP £65 
JMP  QERROR BNE TRLOOP SPART2 STY $96 BCC  NAMEERR 
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NAMEFIN TYA 


NAMEADR STX 


NAMELOOP LDA 
NAMEFLG STA 


LOADDT ASC 
LOADDATA ASC 


SAVEDT ASC 
SAVEDATA ASC 


ERR JSL 
RCL4000 LDX 


JMP 
RCL40002 JSR 





£$80 
$8c00,Y 


CHRGET 
£34 
NAMEFIN 
£48 
NAMEERR 
£58 
NAMELETT 
NAMEENR 


NAMEFLG+1 
CHRGET 


NAMELOOP +1 
NAMELOOP +2 
£0 

$0000, y 
$BCO0, Y 


£$8D 
NAMELOOP 


“"BLOAD" 
",A$4000® 

8D 

"BSAVE" 
",A$4000,L15360" 
8D 


£4 
LOADDT, Y 
$BCO0,Y 


$1 

NAME 
£<LOADDATA 
£>LOADDATA 
NAMEADR 
STO4000 
$8E03 
PACTINIT 
£<PACTPRGE 
£>PACTPRGB 
TRANSFRT 
RCL40002 


£4 
SAVEDT, Y 
$BCO0, Y 


$1 

NAME 
£<SAVEDATA 
£>SAVEDATA 
NAMEADR 
SsTO4000 
PACTINIT 
£<PACTPRGA 
£>PACTPRGA 
TRANSFRT 
$BE03 
RCL40002 


CHRGET 
£<RCL40JSR 
£>RCL40JSR 
EXC4000 
RCL4000 


#< SAVE et LOAD >= 


RCL200 STA 
RCL200L LDA 
STA 
DEY 
BNE 
STA 
JMP 
STO4000 LDX 
LDY 
JSR 
LDA 
STA 


$c004 
$BCO0,Y 
$200,Y 


RCL200L 
$co05 
C9ILOAD 
£<STO40DAT 
£>STO40DAT 
CSISTRING 
£2 

$97 


#< SAVE @t LOAD >=" 


Pom’s n° 43 


STY 596 STA ($96),Y STA ($A5),Y 
STO2LOOP LDA S$BC00,Y STA $C005 DEY 

PHA RTS BPL PACTPRGB 

JSR $C9 STO40JSR JSR $C9 JSR PACTINC 

STA $BCO0,Y STA ($98),Y LDY £39 

PLA RTS PACTB2 JSR $C9 

STA $C004 STO40DAT STA $C002 STA $C055 

STA $200,Y LDA ($96),Y STA ($A5),Y 

STA $CO005 STA $C003 STA $CO054 

DEY RTS DEY 

BNE  STO2LOOP #< SAVE et LOAD >------------- BPL PACTB2 

LDX £<STO40JSR PACTINC LDA £40 INY 

LDY £>STO40JSR ADD $96 JMP  PACTINC 
#< SAVE et LOAD >= STA $96 PACTINIT LDA £$40 
EXC4000 LDA £0 LDA $97 STA $97 

STA $96 ADC £0 LDA £0 

STA $98 STA 597 STA $96 

LDA £$40 RTS RTS 

STA $97 PACTPRGA STA $CO004 RENE on 

LDA £$80 PACTAl LDA ($A5),Y FILL JSL CHRGET 

STA $99 STA (596),Y CMP  £$C5 

STX EXC40JSR+1 DEY BEQ FILLAT 

STY EXC40JSR+2 BPL PACTAIL CMP  £S$AO 
EXC40BCL LDY £0 JSR PACTINC BNE FILLERR 
EXC40JSR JSR $0000 LDY £39 JSR COLOR 

DEY STA $C055 JSL CHRGOT 

BNE EXC40JSR PACTA2 LDA ($A5),Y CMP £$CS 

INC $99 STA ($96),Y BEQ FILLAT 

INC $97 DEY FILLERR JMP SERROR 

LDA $97 BPL PACTA2 FILLAT JSL CHRGET 

CMP £$7C STA $C054 JSR LECTURE 

BNE EXC40BCL STA $C005 STX LIG 

RTS INY COPY ABSARR, ABS 
RCL40JSR STA  $C004 JMP  PACTINC LDA £0 








LDY £0 LDA ($98),Y PACTPRGB JSR $C9 







































Traitement de texte français 
Pour Apple //e, Apple //c, Apple GS. 








Frappe au kilomètre, rapidité d'écriture, souplesse de correction. 
Glossaire puissant, recherche - remplacement. 

: Creation de caractères téléchargeables sur Image Writer 
(notation mathématique, alphabets étrangers etc...) 
mpression rapide, pilotage précis de mise en page. 

Coupure correcte des mots, justification en proportionnel, 
condensé et expansé. 











uille, une valeur sûre pour un public averti. 
our recevoir Gribouille, envoyez ce bon de commande à: 









Prix (port compris) 


* version /e - //c pour lecteur de disquettes 5 1/4 599 HT. 710{rT.TC. 
* version //e - //c pour lecteur de disquettes 3 1/2 632frHT. 750{rT.TC. 
* version GS 835fHT. 990 (TTC. 


D francs libellé à l'ordre de GRIBOUILLE SARL 
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NEXTLIGN 


TSTGAUCH 


ALLUMGAU 


ALLUME 


NEXTPILE 


HAUON 


HAUOFF 


$9A 
CALMSK 
LIG 
HGRM $18 


HGRM $1C 


HGRM $1A 

LDA £0 
FLAGHAU 
FLAGBAS 
COPY ABS, ABSDEP 
DIVYDEC 
BITMSK, Y 
MASK 
£$18 
STATE 
ALLUMGAU 


ABSDEP 
sBC £1 
ABSDEP 
ABSDEP+1 
sc £0 
ABSDEP +1 
TSTGAUCH 
DIV7INC 
BITMSK, Y 
MASK 
LIG 

AND £1 

$A5 
CALCOLM 


LIG 

AND £1 

EOR £1 

$AS 
CALCOLM 
TESTHB 
LDA £1 
ABSDEP 
ABSDEP 
ABSDEP+1 
£0 
ABSDEP+1 
ALLUMGAU 
$9A 
NEXTPILE 


LIGPILE, Y 
LIG 
ABSPILEB, Y 
ABS 
ABSPILEH, Y 
ABS+1 

$9A 
NEXTLIGN 


BAS 
£$1A 
STATE 
HAUOFF 
LDA £0 
FLAGHAU 
BAS 
FLAGHAU 
BAS 
$1E 
MASK 
HAUON 


BAS 


BASON 


BASOFF 


FINTEST 


STATE 


STATERAM 
STATETYP 


STATEDEB 


DEBORDEM 


AFF 


AFFRAM 


EMPILE 


EMPILI1 


FLAGBAS 
FLAGHAU 
*SP dans 
JSRINTER 


Main 
STX 
STY 
PHA 


FLAGHAU 
BAS 

£1 
FLAGHAU 


EMPILE 
LIG 
£191 
FINTEST 
£$1C 
STATE 
BASOFF 
£0 
FLAGBAS 
FINTEST 
FLAGBAS 
FINTEST 
$1E 
MASK 
BASON 
FLAGBAS 
FINTEST 
£1 
FLAGBAS 


EMPILE 


CALCOLM 
ABSY 
DEBORDEM 
£40 
DEBORDEM 
STATETYP+1 
ABSRAM 
STATERAM+1 
$co54 
($00),Y 
$co54 
MASK 


£255 
STATEDEB 
LIG 

£1 


COLMASKO, Y 
$1E 
ABSRAM 
AFFRAM+1 
$1E 

MASK 

$1r 

ABSY 
$c054 
£S$SFF 
MASK 
($18),Y 
$1F 
($18),Y 
$c054 


$9A 
$9A 
EMPIL1 
$9A 


LIGPILE, Y 
ABSDEP 
ABSPILEB, Y 
ABSDEP+1 
ABSPILEH, Y 









SRTNAUX 


SSPRGCI 
$ADR 


C9ISAVE 
C9SLOOP 


C9LOAD 
C9LLOOP 


RTS 
#* INSTRUCTIONS 
TABLE HEX 


DDB 





£<SSPRGCS 
£>S$SPRGCI 
C9ISTRING 
$co04 


$cg 


C9LOAD 


$coos 


$co02 
$0000 
$co03 
SRTNAUX 


$c9,Y7 
LIGPILE, Y 


C9SLOOP 


£11 
LIGPILE, Y 
$c9,Y 


C9ILLOOP 


COLOR 

B8A000 

DEFCOLOR 

A800 

STORE 

A700 

RECALL 
424F5800 

BOX 
"EXCHANGE 


EXCHANGE 
434C5300 
CLS 
46494C4c00 
FILL 

8900 
TEXT40 
9100 

HGR 

9000 

HGR2 
343000 
TEXT40 
383000 
TEXT80 

"AGP .DHR'" 
cF54574F00 
AGPDHR2 
"AGP .TWO' 
cr44485200 
AGP2DHR 
"AGP." 
91CF44485200 
AGPHGDHR 
44485200 
DHR 

B700 

SAVE 

B600 

LOAD 
45525200 
ERR 


*PALETTE DE COULEURS === 


PALETTE HEX 
HEX 
HEX 


HEX 


00000000 
2A552A55 
552A552A 
7F7E7F7E 



























































#*STARTUP 
STARTUP 


STARTUP3 


STARTUP2 


STARTUP1 


STARTUP4 


STARTUPS 
STARTUP6 


STARTFIN 


STARTUPD 
DATADTO6 


DATADTFA 
*The end. 


80808080 
AADSAADS 
DSAADSAA 
FFFFFFFF 
362A2A36 
08084141 
FE3F3FFE 
CA2929CA 
c42828C4 
70ADAD70 
EA5757EA 
2A55552A 


STARTUPD-1+$1800, Y 
$6 

£$20 

$8 

$8 

$7 

$6 

$c005 
DTHGR1, X 
s7 
DTHGR2, X 
$cO04 

£4 

s7 

s7 


£7 
STARTUP1 
$6 

£$80 

$6 


£15 
STARTUP2 
$8 

$8 

£$24 
STARTUP2 


STARTUP3 

£5 
DATADTO6+$1800,Y 
$06,Y 
DATADTFA+$1800,Y 
SFA, Y 


STARTUP4 
£$8 

$A1 

£$0 

$A0 

$A2 
£$20 
$A3 
$co005 
£0 
($A2),Y 
($A0),Y 


STARTUP6 

$A3 
£>STARTUP+$1800 
STARTFIN 

$A1 

$A3 

STARTUP5+$ 1800 


COPY VCTAMPER, AMPERS2 


$co04 

£6 
VCTAMPER 
£0 
VCTAMPER+1 


502800 
$co03 
DEBUT 
$co02 














Nul besoin de présenter ce jeu qui consiste à remettre en 
ordre une image (SHGR couleurs ici) bouleversée par 
l'ordinateur. 


Ce programme a été écrit dans un but de familiarisation 
avec GS Basic et la boîte à outils de l'Apple IIGS. La 
documentation du GS Basic et le livre de Jean Pierre Curcio 
“Boîte à outils de L'Apple IIGS’, bien que les exemples 
soient en langage C, sont très utiles. Le programme de 
démonstration nommé PICS de la disquette GS Basic est 
très instructif. Il a servi d'inspiration au programme Puzzle. 


Utilisation 


Il vous faut tout d'abord lire une image en ouvrant un 
fichier. Le programme nee sachant pas décompacter une 
image, il ne vous proposera que les fichiers de type SCI 
(image non compactée). Au besoin utilisez GS Paint ou 
tout autre logiciel de dessin pour sauver les images sous 
forme non compactée (type écran). 

Une fois votre image chargée, vous pouvez alors choisir le 
nombre de pièces avec le menu du même nom (choix de 4 à 
100 pièces). Tant que vous n'avez pas mélangé vous 
pouvez essayer plusieurs découpages. Lorsque vous êtes 
près, mélangez ! (menu ‘Jouer”’). 

Le mélange étant fini, vous pouvez commencer à 
reconstituer l'image en cliquant sur les pièces que vous 
voulez échanger. Chaque fois que vous cliquez sur une 
pièce, elle s'entoure et si vous avez cliqué auparavant sur 
une autre, elle s'échange avec elle. Laissez le programme 
travailler : ce n'est pas un langage compilé. Dès que le 
mélange a été effectué, vous pouvez vérifier quand vous le 
souhaitez si vous avez réussi à reconstituer l'image. 

À tout moment pour vous aider, vous pouvez, par le menu 
‘Ecran’, passer de l'image puzzle à l'image reconstituée et 
vice-versa. Vous pouvez aussi par le même menu visualiser 
ou non la grille. Dans n'importe quelle phase du jeu, vous 
pouvez changer d'image en en chargeant une autre ou, bien 
sûr, sortir du programme. 

Attention aux images comportant, une fois découpées, des 
pièces semblables. Vous penserez les avoir reconstituées 
alors que pour le programme les pièces ne seront pas à 
leurs emplacements de départ. 
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Structure du 
programme 


Le programme principal PUZZLE2 est appelé par le 
programme PUZZLE qui charge les fichiers TDF. 

Le programme principal est constitué des initialisations et 
d'une boucle presque vide en ligne 19600, tout le reste étant 
des sous-programmes. Ce sont les interruptions créées par 
la sélection d'un menu ou par un click souris qui vont faire 
s'éxécuter tel ou tel sous-programme. Comment sont t'ils 
appelés ? 


Appels par les menus 


L'instruction MENUDEF à la ligne 19200 a pour fonction de 
lier les numéros d'articles définis dans l'initialisation des 
menus (lignes 17800 à 18200) aux labels des 
sous-programmes. II faut ajouter le nombre juste après 
MENUDEFr à 256 et à la position du label dans l'instruction 
pour obtenir le numéro de l'article qui va pouvoir appeler le 
sous-programme. Par exemple le sous-programme 
pecouPE64 est appelé par l'article 1 (nombre après 
MENUDEF) + 255 + 4 (rang de DRAWPUzZLE dans la liste) = 
260 (article ‘64’ du menu ‘Nb de pieces’ : ligne 18000). 


Appels par un click souris 

L'instruction EVENTDEr à la ligne 17100 relie les 
sous-programmes DRAWPUZZLE @t DRAWIMAGE AUX 
événements de mise à jour des fenêtres dont les structures 
sont puzzle! () et imagent ! (). L'instruction EVENTDEF à 
la ligne 19300 elle, relie le sous-programme CLICK au 
click dans une fenêtre qui est codé 19 par GS Basic. La 
plupart des actions clavier ou souris sont ainsi codées. 
Lorsque le programme tourne on est dans la boucle en 
19600. Dès qu'on crée un événement (appel à un menu ou 
click) on saute au sous-programme défini par les 
instructions MENUDEF et EVENTDEr. Chaque 
sous-programme ainsi appelé doit se terminer par RETURN 
o. On revient alors en attente dans la boucle. Même la 
sortie du programme est ainsi traitée. L'appel de l'article 
“Quitter” fait éxécuter le sous-programme QUITTER qui met 
l'index quitflags à 1. La boucle testant cet index, on en 
sort dès qu'on y revient. 
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Instructions TASKREC 


Dans les sous-programmes, vous trouverez les variables 

TASKREC#(I) et TASKRECà (1). Ce sont des variables 

réservées de GS Basic. TASKREC® (1) est dimensionné à 12 

et TASKRECà (1) à 11. Voici quelques affectations de ces 

variables : 

- TASKREC&(6) donne la coordonnée verticale de la 
souris. 

-  TASKREC#(7) donne la coordonnée horizontale de la 
souris. 

- TASKRECS (9) donne le numéro d'article. 

- TASKREC# (10) donne le numéro du menu. 

- TASKRECà (9) donne le handle sur la fenêtre active. 


NON. C'ESTN 





Initialisations 


Les outils utilisent beaucoup les structures. Pour les 
intialiser, il est pratique d'écrire les valeurs sous forme de 
datas et d'écrire une petite procédure qui lit ces datas et 
transfère les valeurs dans la structure voulue. 

On peut de cette manière coder dans les datas les types de 
variables qu'on veut écrire dans la structure. Par exemple, 
dans le programme PUZZLE, la procédure Chardat a (ligne 
42800) prend en compte les nombres derrière les caractères 
3 comme des entiers (2 octets) et les nombres derrière les 
caractères à comme des doubles entiers (4 octets). On 
pourrait étendre cette technique à des nombres que l'on veut 
écrire en hexadécimal ou en binaire. 


Outil PaintPixels 


Le programme travaille sur trois images stockées dans des 
structures. La structure picimage!{() contient l'image 
entière. La structure pic!() contient l'image puzzle 
mélangée qu'on voit à l'écran. La structure picrecep!{) 





contient une image de travail qui sert au moment d'un 
échange. En effet lorsqu'on veut échanger deux pièces 1 et 
2, la procédure echange copie la pièce 1 de pic à 
l'emplacement 2 dans picrecep et la pièce 2 de pic à 
l'emplacement 1 dans picrecep. Elle copie ensuite la pièce 
1 de picrecep à l'emplacement 1 dans Pic et la pièce 2 de 
picrecep à l'emplacement 2 dans pic. Pour cela cette 
procédure utilise l'outil PaintPixels (pointeur). Cet 
outil copie le contenu d'un rectangle appartenant à un 
locinfo dans un autre rectangle appartenant à un autre 
1ocinfo. Les deux 1ocinfo et les deux rectangles sont 
définis dans la structure ‘pointée’ par pointeur. Dans le cas 
du programme PUZZLE, les rectangles sont 
rigoureusement de même taille mais l'outil PaintPixels 
est capable de faire des mises à l'échelle si les rectangles 
sont de dimensions differentes. 





TransfertsAppleSoft + GSBasic 


Il vous suffit, pour récupérer vos plus chers programmes 
AppleSoft, de les transformer en fichier texte grâce au 
programme de capture bien connu que l'on ajoute en tête du 
programme à récupérer avant de le RUNer : 


O0 PRINT CHR$(4) "OPEN TEXTE 
1 PRINT CHR$(4)"WRITE TEXTE 
2 IST 5; 

3 PRINT CHR$(4) "CLOSE TEXTE 
4 END 


Attention, avant cette transformation, supprimez ou 

remplacez les instructions suivantes qui font planter GS 

Basic: 

- HGR, HGR2, HCOLOR, HPLOT ...mais QuickDraw sait 
faire tellement mieux. 

- _HIMEMet LOMEM qui sont inutiles sous GS Basic. 


- INT qui fait planter le RENUM de GS Basic. Il faut alors 
se débrouiller avec ROUND() et FIX(). 


- GET X$ à transformer en GETS x$. 


À tous ceux qui connaissent l'AppleSoft, et ils sont 
nombreux, GS Basic permet d'accéder rapidement et 
facilement aux outils de l'Apple IIGS et donc d'écrire des 
programmes possédant une interface utilisateur évoluée 
(menus déroulants, multi-fenêtrage, etc.). De plus 
moyennant quelques adaptations rudimentaires, ils peuvent 
récupérer des programmes AppleSoft. 


Programme GSBasic ‘Puzzle’ 





NB. : Les préfixes précisés dans Puzzle conduisent à organiser 
votre disquette de la façon suivante : 


Votre disquette s'appelle /GsB1. 

Le dossier /G581/TDFS contient les librairies. 

Le dossier /GsB1/BOISSIERE contient les programmes Puzzle, 
Puzzle 2 et l'image de démarrage Demar. 

Le dossier /G5B1/IMAGES.PUZZLE contient... vos images SHGR 
à puzzler. 
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10000 REM 

10100 REM 

10200 REM Bruno Boissière le 07/05/89 

10300 REM Programme PUZZLE version 1 

10400 REM 

10500 REM 

10550 PREFIX 0,"/GSBl" 

10600 REM Libération d'environ 64 koctets 

10700 CLEAR 65600 

10800 PRINT FRE;" octets disponibles" 

10900 REM Chargement des fichiers .tdf 

11000 PREFIX 1,"0/TDFS" 

11100 LIBRARY "l/locator.tdf" 

11200 LIBRARY APPEND "l/memory.tdf" 

11300 LIBRARY APPEND "l/misctooi.tdf" 

11400 LIBRARY APPEND "l/quickdraw.taf" 

11500 LIBRARY APPEND "l/event.tdf" 

11600 LIBRARY APPEND "l/window.tdf" 

11700 LIBRARY APPEND "l/control.tdf" 

11800 LIBRARY APPEND "l/lineedit.tdf" 

11900 LIBRARY APPEND "l/dialog.tdf" 

12000 LIBRARY APPEND "l/menu.tdf" 

12100 LIBRARY APPEND "l/scrap.tdf" 

12200 LIBRARY APPEND "l/stdfile.taf" 

12300 LIBRARY APPEND "l/desk.tdf" 

12400 LIBRARY APPEND "l/intmath.taf" 

12500 REM Réinitialisation de l'imprimante 
sans AUTO-LF 

12600 ASSIGN ".PRINTER", -1 

12700 ASSIGN ".PRINTER", 1 

12800 REM Passage en mode texte pour efface 
r l'image du boot 

12900 TEXT 

13000 REM Lancement du programme PUZZLE2 

13100 PREFIX "0/BOISSIERE" 

13200 RUN "PUZZLE2" 





Programme ‘Puzzle2’ 





10000 REM 

10100 REM 

10200 REM Bruno Boissière le 03/06/89 
10300 REM Programme PUZZLE version 2.0 
10400 REM 

10500 REM 

19600 CLEAR 131072 

10700 REM Traitement des erreurs 

10800 ON ERR NOTRACE:TEXT:PRINT:PRINT ERRT 


XTS(ERR);" Erreur à la ligne ";ERRLIN 
:CHR$S (7) :GOTO fin 


10900 ON BREAK NOTRACE:GOTO fin 

11000 REM Dimensionnements 

11100 DIM menul!(120),menu2!(120),menu3!(12 
0),menu4!1(120),menu5!1{(120) 

11200 DIM pic!(32767),picrecep!(32767),pici 
mage! (32767) 

11300 DIM puzzle! (78), imagent ! (78), apropos! 
(78),gagne! (78) 

11400 DIM ligne! (256), vecteur! (100) 

11500 DIM reply!(149),listype!(10) 

11600 DIM rect!(7),srcrect!(7),receprect!(7 
),entour!(7) 

11700 DIM lociinfo!{(15}),loc2info!(15},1loc3i 
nfo!(15) 

11800 DIM pointeurpp!(21) 

11900 DIM npdc#(100) 

12100 REM Chargement de l'image de démarrag 
e 

12200 REM PROC charge ("DEMAR") 

12300 REM Initialisation des outils 

12400 REM Les initialisations du Tool Locat 


12500 
12600 
12700 
12800 
12900 
13000 
13100 
13200 
13300 


13400 
13500 
13600 
13700 
13800 
13900 
14000 
14100 
14200 
14300 
14400 
14500 
14600 
14700 
14800 
14900 
15000 
15100 
15200 
15300 
15400 
15500 
15600 
15700 
15800 
15900 
16000 
16100 


16200 
16300 


16400 


16500 


16600 
16700 


16800 


16900 


17000 


17100 


17200 
17300 


or, du Memory Manager, de Miscellaneo 
us Tools et de Event Manager sont fai 
tes pa r GS Basic 

REM Initialisation de Quick Draw 
GRAF INIT 320:GRAF ON 

REM Identification de l'application 
myid$#=EXFN MMStartUp 

REM Réservation de 4 pages zéro 
aa%=EXFN loword({TEN("CO05")}) 

hä=EXFN NewHandle(4*256,myia$,aa%, 0) 
REM Adresse du bloc de 4 pages zéro 
aaä=PEEK(hà)+256*PEEK (hà+1)+256*256*P 
EEK{(häà+2) 

REM Initialisation du Window Manager 
_WindStartUp(myid#) 

REM Initialisation de Control Manager 
_CtiStartup(myid$,aaä) 

REM Initialisation de Line Edit 
__LEStartUp(myid$,aaä+1*256) 

REM Initialisation de Dialog Manager 
_DialogStartUp(myid#) 

REM Initialisation de Menu Manager 
_MenuStartUp(myid$,aaä+2*256) 

REM Visualisation de l'image de démar 
rage 

_BlockMove (VARPTR(pic!(0)}),14753792,3 
2768) 

REM Initialisation du Scrap Manager 
_ScrapStartUp 

REM Initialisation du Standard File O 
perations 

_SFStartUp(myid$,aaä+3*256) 

REM Initialisation du Desk Manager 
_DeskStartUp 

REM Initialisation des datas des fene 
tres 

RESTORE datafensim:PROC chardata (VARP 
TR(apropos!(0))) 

RESTORE datadimapro:PROC chardata (VAR 
PTR(apropos!(62}))) 

RESTORE datafensim:PROC chardata (VARP 
TR(puzzle!(0))) 

RESTORE datadimpuz:PROC chardata (VARP 
TR(puzzle!(62))) 

RESTORE datafensim:PROC chardata (VARP 
TR(imagent!(0))) 

RESTORE datadimimag:PROC chardata {VAR 
PTR(imagent ! (62) }))}) 

RESTORE datafensim:PROC chardata (VARP 
TR(gagne!(0)})} 

RESTORE datadimgagne : PROC chardata (VA 
RPTR(gagne!(62))} 
waä=EXFN_NewWindow (VARPTR (apropos! (0) 
)) 

REM Initialisations des LocInfo 
RESTORE datalocinfo:PROC chardata (VAR 
PTR{locliinfo!{(0)})) 

RESTORE datalocinfo:PROC chardata (VAR 
PTR{loc2info!{(0)}} 

RESTORE datalocinfo:PROC chardata (VAR 
PTR(loc3info!(0))} 
SET(lociinfo!(2},4)=VARPTR{pic!(0)}) 
SET(loc2info!(2)},4)=VARPTR({picrecep! ( 
0)) 
SET(loc3info!(2),4})=VARPTR(picimage! { 
0)} 

RESTORE datasrcrect:PROC chardata (VAR 
PTR(srcrect!(0))) 

REM Gestion des évènements liés aux f 
enètres 

EVENTDEF 60, drawpuzzle, drawimage 
SET(puzzle!(58),4)=EXEVENTà (60) 

SET (imagent ! (58),4)=EXEVENTà (61) 


















_ Une page dépouillée 





Les rédacteurs de Pom’s vont redouter le syndrome de la 

page blanche cher aux écrivains : un papier ‘protecteur’ a 
singulièrement allégé la page 21 de notre numéro 42. Vous 
avez perdu le titre : Eject.System, mais surtout le nom de 

. l'auteur du programme, Patrick Blancheton et le dessin de 

: Gilles Coursier. 

Les protections sont maintenant sous haute surveillance 








17600 REM Mis en place de la barre de menus 

17700 _RefreshDeskTop(0) :_ShowCursor 

17800 SET (menul!(0))="> àçN1X"+CHRS(0)+"- À 
propos de puzzleçN257 V"+CHR$(0)+"." 

17900 SET(menu2!(0))="> Fichier çN2"+CHR$( 
0)+"- Ouvrirç*OoN259"+ CHRS(0})+"- -çN 
266D"+CHR$(0)+"- Quitterç*QqgN258"+CHR 
S(0)+"." 

18000 SET (menu3!(0))="> Nb de pieces çN3D" 
+CHR$S (0)+"- 4GçN268"+CHR$S (0)+"- 16çN26 
9"4+CHRS$S (0)+"- 25çN270"+CHR$S (0)+"- 64ç 
N260"+CHRS (0)+"- 100çN264"+CHRS(0)+". 
" 

18100 SET(menu4!(0))="> Jouer çN4D'"+CHRS(0 
)+"- MelangerçN261"+CHRS$S (0)+"- Verifi 
erçN267D"+CHR$ (0)+"." 

18200 SET (menu5!(0))="> Ecran çN5D"+CHRS(0 
)+"- Image puzzleçN262"+CHR$(0)+"- Im 
age entiereçN263"+CHR$(0)+"- GrilleçN 
265"+CHR$(0)+"." 

18300 _InsertMenu(EXFN_NewMenu (VARPTR (menus 
1(0))),0) 

18400 __InsertMenu(EXFN_NewMenu (VARPTR (menu4 
1(0))),0) 

18500 _InsertMenu (EXFN_NewMenu (VARPTR (menu3 
1(0))),0) 

18600 _InsertMenu(EXFN_NewMenu (VARPTR (menu2 
1(0))),0) 

18700 _InsertMenu(EXFN_NewMenu (VARPTR (menu1l 
1(0))),0) 

18800 _FixAppleMenu(1):_FixMenuBar:_DrawMen 
uBar 

18900 index$=1:grillet=-1:numart#$#-=0:quitfla 
g%=0 

19100 REM Appels par les articles des menus 

19200 MENUDEF 1,apropos, quitter, charger, dec 
oupe64,melanger, drawpuzzle, drawimage, 
decoupe100,grille, quitter, verifier, de 
coupe4, decoupe16, decoupe25 

19300 EVENTDEF 19,click 

19400 TASKPOLL INIT TEN("S$FFF"),-1 

19500 TASKPOLL ON 

19600 DO:UNTIL quitflag$:GOTO fin 

19700 REM Dessin de la fenètre de présentat 


ion du logiciel 


20600 APROPOS: _SelectWindow(waä) :_ShowWindow (wa 


ä) 
20800 _SetPort (waä):_SetOrigin(0,0) 
20900 SET(ligne! (0))=""Puzzle V2.0" 
21000 _MoveTo(15,15):_ DrawString(VARPTR(lig 
ne!(0))) 
21100 SET (ligne! (0))=""Par Bruno Boissiere" 
21200 _MoveTo (15,30) :_DrawString(VARPTR(lig 


ne!(0))) 


D 


21300 
21400 
21500 
21600 
21650 
21700 
21710 
21720 
21730 
21800 


21900 
22200 
22300 
22350 
22400 
22410 
22420 
22500 
22600 
22800 
22900 
22950 
23000 
23050 
23100 
23200 
23300 


23400 


23500 


23600 


23700 


23800 
23900 


24000 


24100 


24200 
24300 


24400 


24500 


24550 
24600 


24700 


24800 


DRAWPUZZLE: 


DRAWIMAGE : 


QUITTER: 


CHARGER : 





SET(ligne!(0))=""Version de juin 1989 
_MoveTo(15,45):_DrawString(VARPTR(lig 
ne!(0))}) 

_HiliteMenu(0, TASKREC#(10)) 

RETURN 0 

REM Dessin de la fenètre du puzzle 
_ShowWindow (wpä) :_SelectWindow (wp 
à) :_SetPort (wpä) 

REM Dessin de l'intérieur de la fenèt 
re 

_PPToPort (VARPTR(loclinfo!(0})}), VARPTR 
{srcrect!(0)),0,0,0) 

IF grille#rl THEN GOSUB dessingrille 
REM Cochage de l'article Image puzzle 
et suppression du cochage de l'artic 
le Image entière 
_CheckMItem(1, 262) :_CheckMItem(0, 263) 
_HiliteMenu(0,TASKREC#(10)) 

RETURN 0 

REM Dessin de la fenètre de l'image e 
ntière 
_ShowWindow{(wià) :_SelectWindow (wi 
à) :_SetPort (wiä) 

REM Dessin de l'intérieur de la fenèt 
re 

_PPToPort (VARPTR(loc3info!(0)),VARPTR 
{(srcrect!(0)),0,0,0) 

REM Cochage de l'article Image entièr 
e et suppression du cochage de l'arti 
cle Image puzzle 
_CheckMItem(1, 263): _CheckMItem(0, 262) 
_HiliteMenu(0, TASKREC#(10}) 

RETURN 0 

REM Sortie du programme 

quitflag$=1:TASKPOLL OFF:RETURN 0 
REM Chargement d'une image 
SET(ligne!(0))=""Nom de l'image a 

charger" 

REM affichage des fichiers de type $C 
1 seulement 
SET(listype!(0),1)=1:SET(listype!(1}, 
1)=-193 
_SFGetFile(30,50,VARPTR(ligne!(0)),0, 
VARPTR(listype!(0)),VARPTR(reply!(0)) 
) 

REM capture du nom du fichier sélecti 
onné 

aa$=VAR$ (VARPTR(reply!(7)}),PEEK(VARPT 
R(reply!(6)))) 

REM Chargement de l'image dans pic!(0 
) 

PROC charge(aa$) 

REM Copie de pic! dans picimage! pour 
l'image entière 

_BlockMove (VARPTR(pic!(0)},VARPTR (pic 
image! (0)),32768) 

REM Activation des menus Nb de pieces 
, Puzzle et Ecran 

àa%=EXFN loword(TEN("FF7F")) 
_SetMenuFlag(aa$,3):_SetMenuFlag(aa$#, 
4) :_SetMenuFlag(aa$, 5) :_DrawMenuBar 
REM Si ce n'est pas la première fois 
qu'on charge une imagealors on réinit 
lialise les menus et articles 

IF numart# THEN CheckMItem(0,numart# 
):_DisableMItem(267) 

REM Initialisation des fenètres 
wpäà=EXFN_NewWindow (VARPTR (puzzle!(0)) 
) 
wià=EXFN_NewWindow(VARPTR (imagent ! (0) 
)) 
wgà=EXFN_NewWindow(VARPTR (gagne! (0))) 
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24900 
25000 


25100 
25200 


25300 


25350 
25400 
25500 


25600 
25700 
25800 
25900 
26000 
26050 
29100 DECOUPE4: 


REM Mise à jour de la palette 
_BlockMove (VARPTR(pic!(32256)),147860 
48,512) 
_ShowWindow ({wpä) 
REM Cochage de l'article Image puzzle 
et 25 pièces 
_CheckMItem{1,262) :numart$#=270: Check 
MItemi(l,numart#) 
melange#$=0 
REM Découpage par défaut 
npdc$ (0)=25:nbh#=SQR (npdc$ (0) ):nbv$=n 
bh$ 
FOR i=1 TO 100 
npdc#(i}=i 
NEXT i 
_HiliteMenu(0,TASKREC#(10)) 
RETURN 0 
REM Choix du nombre de pièces 
npdc#%(0)=4:GOTO findec 


29200 DECOUPE16: npdc$ (0)=16:GOTO findec 


29300 DECOUPE25 
29400 DECOUPE64 


$ npdc$%(0)=25:GOTO findec 
: npdc$ (0)=64:GOTO findec 


29500 DECOUPE100: npdc$ (0)=100:GOT0 findec 


29600 FINDEC: 
29700 


29800 


29300 


30000 
30100 
30200 
30700 
30800 GRILLE: 
30850 
30900 


31000 


31100 


31200 
31250 


nbh#$=SQR (npdc$ (0) ) :nbv#=nbh#$ 
REM Décochage du nombre de pièces pré 
cédent et cochage du nouveau nombre à 
e pièces 
_CheckMItem(0, numart$) :numart $=TASKRE 
C$(9):_CheckMItem(1,numarts#) 
_SetPort (wpä) :_PPToPort (VARPTR(loclin 
fo!{(0)),VARPTR(srcrect!{(0)),0,0,0) 
GOSUB dessingrille 
_HiliteMenu(0,TASKREC$#(10)) 
RETURN 0 
REM Choix de l'option "grille" 
grille$=-l'grilles 
_SetPort (wpä) 
IF grille#=1 THEN GOSUB dessingrille: 


_CheckMItem (1, TASKREC$ (9)) 


ELSE _PPToPort (VARPTR(loclinfo!(0)) 
, VARPTR (srcrect!(0))},0,0,0): CheckMIt 
em(0,TASKREC$ (9) ) 
_HiliteMenu(0,TASKREC$#(10)) 
RETURN 0 
REM Dessin de la grille 


31300 DESSINGRILLE: REM _SelectWindow (wpä) :_ShowWindo 


31400 
31500 
31550 


31600 


31700 
31800 
31850 


31900 


32000 
32100 
32150 
32200 MELANGER: 


32250 
32300 
32400 
32500 
32600 


32700 
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w (wpä) :_SetPort ‘wpä) 
_SetSolidPenPat (15) 
FOR i=0 TO nbh# 
_MoveTo(i*320/nbh%-1,0):_ LineTo{(i*3 
20/nbh#$-1,200) 
_MoveTo(i*320/nbh%, 0) :_LineTo(i*320 
/nbh#, 200) 
NEXT i 
FOR i=0 TO nbv$ 
_MoveTo (0,i*200/nbv$%-1):_LineTo(320 
,i*200/nbv#-1) 
_MoveTo(0,i*200/nbv%): LineTo(320,i 
*200/nbv#) 
NEXT i 
RETURN 
REM Mélange des pièces 
_SelectWindow{wpä) :_ShowWindow {(wp 
à) :_SetPort (wpä) 
melange$=1 
FOR i=1 TO nbv# 
FOR j=1 TO nbh# 
PROC echange (j,i, ROUND(1+{(nbh%-1) 
*RND(1)}), ROUND(1+(nbv#%-1)*RND(1))) 
REM _SelectWindow (wpä) :_ShowWindo 
w (wpä) :_SetPort (wpä) 
_PPToPort (VARPTR(loclinfo!{(0)}),VA 
RPTR(srcrect!(0)),0,0,0) 


32800 
32900 
32950 
33000 


33100 


33200 
33300 
33400 
33500 
33600 
33700 
33750 
33800 
33900 
34000 
34100 
34200 
34300 
34400 


34500 


34600 


34700 


34800 
34900 
35000 


35100 


35200 
35300 


35400 


35500 
35600 
35650 
35700 
35800 


35900 


35950 
35960 
36000 
36100 


36200 


36300 


36400 
36500 


36600 
36700 
36800 
36900 
37000 


37100 


37200 
37300 
37400 
37500 





NEXT j 
NEXT i 
IF grille$=1 THEN GOSUB dessingrille 
REM Désactivation du menu Nombre de p 
ièces 
aa%=EXFN_loword(TEN("0080")): SetMenu 
Flag(aas%,3) _ 
REM Activation de l'article Vérifier 
_EnableMItem(267) 
REM Déclenchement du chronomètre 
TIMER ON:chronoà=SECONDSà :TIMER OFF 
_HiliteMenu(0, TASKREC#(10)) 
RETURN 0 
REM Vérification de l'image 
VERIFIER: test$h] 
FOR i=1 TO npdc#{(0}) 
IF npdc#{(i)<>i THEN test$=0 
NEXT i 
_SelectWindow{(wgä) :_ShowWindow(wgä) 
_SetPort (wgä):_SetOrigin(0,0) 
IF test#=0 THEN aa$="L'image est diff 
erente ":bb$="de l'originale":GOTO fi 
nver 
REM Réactivation du menu Nombre de pi 
èces 
aa%=EXFN_loword(TEN("FF7F")):_ SetMenu 
Flag(aa#, 3) 
REM Désactivation de l'article Verifi 
er 
_DisableMItem(267) 
REM Arret du chronomètre 
TIMER ON:chronoà=SECONDSäà-chronoà : TIM 
ER OFF 
aa$="Vous avez mis "+CONV$(chronoâ)+" 
secondes":bb$="pour reconstituer l'i 
mage" 
melange$=0 
FINVER: _MoveTo(15,15):_DrawText (VARPTRS ( 
aàa$),LEN(aa$)) 
_MoveTo (15,30): DrawText (VARPTRS (bb$) 
, LEN(EbS$) } 
_HiliteMenu(0,TASKREC#(10)) 
RETURN 0 
REM Gestion du click dans une fenètre 
CLICK: wà=EXFN_FrontWindow 
IF wâ=waà THEN _HideWindow(waä) :GOTO 
fincli 
IF wä=wgà THEN _HideWindow{wgä) : GOTO 
fincli 
IF wä=wià THEN GOTO fincli 
IF melange#=0 THEN GOTO fincli 
_SetPort (wpä) :index$=-1#*indexs 
aa%=1+FIX((TASKRECS#(7)) *nbh#/320) :bb# 
=1+FIX((TASKRECS (6)) *nbv#/200) 
IF index$=-1 THEN anh$#=aa$:anv$=bb#:P 
ROC entour(anh#,anv$):GOTO fincli 
nvh$=aa$:nvv$#=-bb$: PROC entour (nvh$,nv 
v$) 
PROC echange (anh#,anv$,nvh$,nvvs#) 
__PPToPort (VARPTR(loclinfo!(0)),VARPTR 
(srcrect!(0)),0,0,0) 
IF grille$%=1 THEN GOSUB dessingrille 
FINCLI: RETURN 0 
FIN: GRAF OFF 
OFF ERR:NOTRACE 
_DeskShutDown:_SFShutDown:_ ScrapShutD 
own:_MenuShutDown 
_DialogShutDown:_LEShutDown:_Ct1ShutD 
own:_WindShutDown 
REM _DisposeHandle (WMHandleä) 
TEXT 
END 
REM 
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37600 REM eprect vers celui défini par receprec 











37700 REM Sous Programmes t 
37800 REM 42200 SET (pointeurpp!(8),4}=VARPTR(receprec 
37900 REM Entourage piece sélectionnée t1!(0)) 
38000 DEFENTOUR: DEF PROC entour{anh$,anv$) 42300 SET {pointeurpp!(12},4)=VARPTR(recepre 
38100 x1$={(anh$-1)*320/nbh$:y1$%=(anv$-1)*20 ct!(0)) 
0/nbv# 42400 _PaintPixels (VARPTR(pointeurpp!(0)})) 
38200 X2%=x1#+320/nbh$%:y2%=y1#+200/nbv$ 42500 END PROC echange 
38300 SET (entour!(0),2)=y1#:SET(entour!1{(2), 42600 REM 
2)=x1$ 42700 REM $:entier, ä:double entier 
38400 SET(entour!(4),2)=y2#:SET(entour!(6}, 42800 DEFCHARDATA: DEF PROC chardata(destä) 
2)=x2% 42900 n$=0 
38500 _SetSolidPenPat (0) :_FrameRect (VARPTR( 43000 READ a$ 
entour!(0))}) 43100 WHILE LEN(a$) 
38600 END PROC entour 43200 X$=INSTR("#à",MID$S(a$,1,1)) 
38700 REM 43300 REM Suppression premier caractère 
38800 REM Echange de deux rectangles 43400 a$=MIDS$S(a$,2) 
38900 DEFECHANGE: DEF PROC echange {(anh$,anv$,nvh#,n 43500 ON x$ GOTO ent, dent 
vv#) 43600 ENT: SET (vecteur!{n#%}),2)=CONVE (a$):n 
39000 REM Mise à jour des numéros des pièce $=n$+2:GOTO suivant 
s situées dans les deux cases 43700 DENT: SET(vecteur!{n#%},4)=CONVä (a$):n 
39100 SWAP npdc%((anv$%-1})*nbh$+anh#),npdc$ ( $=n$+4:GOTO0 suivant 
(nvv$-1)*nbh$#+nvh$) 43800 SUIVANT: READ a$ 
39200 REM definition rectangle à déplacer 43900 UNTIL 
39300 x1$#=(anh#-1)*320/nbh$:y1$%={anv$-1)*20 44000 REM Transfert de vecteur!{(n$-1) à par 
0/nbv# tir de destä 
39400 x2%=x1$#+320/nbh%:y2%=y1$+200/nbv$ 44100 FOR i=0 TO n$%-1 
39500 SET(rect!(0),2)=y1#:SET(rect!(2),2)=x 44200 POKE destä+i,vecteur!({i) 
1% 44300 NEXT i 
39600 SET(rect!(4),2)=y28:SET(rect!(6),2)=x 44400 END PROC chardata 
2% 44500 REM 
39700 REM Définition du rectangle récepteur 44600 DEFCHARGE : DEF PROC charge(aa$) 
39800 x1$#=(nvh$#-1)*320/nbh#:y1$#=(nvv$#-1)*20 44700 REM Chargement de l'image 
0/nbv3% 44800 OPEN aa$, FILTYP=193 AS£11,32767 
39900 X2$%=x1$+320/nbh$:y2%=y18$8+200/nbv8 44900 GET£11;pic!(0) 
40000 SET(receprect ! (0),2)=y18:SET(receprec 45000 CLOSE£11 
t1(2),2)=x18# 45100 END PROC charge 
40100 SET(receprect ! (4),2)=y2#:SET(receprec 45200 REM 
t!(6),2)=x2$% 45300 REM 
40200 REM Copie de puzzle (loclinfo) vers r 45400 REM Datas 
ecepteur (loc2info) 45500 REM 
40300 SET (pointeurpp!(0),4)=VARPTR(loclinfo 45600 REM Fenetre simple 
1 (0)) 45700 DATAFENSIM: DATA $%78 
40400 SET (pointeurpp!(4}),4)=VARPTR(loc2info 45800 DATA #%0,à0,à0 
?(0)) 45900 DATA #0,%0,%#0, 80 
40500 REM Copie du rectangle défini par rec 46000 DATA à0,%0,%0 
t vers celui défini par receprect 46100 DATA %0,#0,9%0, %0,%0, #0, $0, 80 
40600 SET {pointeurpp!(8),4)=VARPTR(rect ! (0) 46200 DATA à0,%0,à0, ä0,à0 
} 46300 DATA 80,80, #0, #0 
40700 SET (pointeurpp!(12),4)=VARPTR(recepre 46400 DATA à-1,à0,"" 
ct!(0)) 46500 REM 
40800 SET(pointeurpp!(16),2)=0 46600 REM fenetre complete 
40900 SET(pointeurpp!(18),4)=0 46700 DATAFENCOM: DATA #78 
41000 _PaintPixels (VARPTR(pointeurpp! (0))) 46800 DATA 356736, à0,à0 
41100 REM Copie du rectangle défini par rec 46900 DATA %26,%0,#%190, #320 
eprect vers celui défini par rect 47000 DATA à0,%0,%0 
41200 SET(pointeurpp!(8),4)-VARPTR(receprec 47100 DATA %200,%320,%200,#320,%4,%8, #40,%8 
t!(0)) 0 
41300 SET(pointeurpp!(12),4)=VARPTR(rect! (0 47200 DATA à0,%0,à0, à0,à0 
)) 47300 DATA %0,%0,%0, #0 
41400 _PaintPixels {VARPTR (pointeurpp! (0))) 47400 DATA à-1,à0,"" 
41500 REM Copie de recepteur (loc2info) ver 47500 REM 
s puzzle (loclinfo) 47600 REM Dimensions des fenetres 
41600 SET (pointeurpp!{(0),4)=VARPTR(loc2info 47700 DATADIMPUZ: DATA #0,#0,#200,3%320,"" 
1(0)) 47800 DATADIMIMAG: DATA $%0,#%0,#%200,8320,"" 
41700 SET (pointeurpp!(4),4)=VARPTR(loclinfo 47900 DATADIMAPRO: DATA $50,#50,#105,#220,"" 
1(0)) 48100 DATADIMGAGNE: DATA #30,%50,#70,#265,"" 
41800 REM Copie du rectangle défini par rec 48200 REM 
t vers celui défini par rect 48300 DATALOCINFO: DATA #0,à0,#160, #0, #0, #200, #320," 
41900 SET(pointeurpp!(8),4)=VARPTR(rect! (0) n 
} 48400 DATASRCRECT: DATA %0,%0,%200,#%320,"" 
42000 _PaintPixels (VARPTR(pointeurpp!(0))) 48700 REM 
42100 REM Copie du rectangle défini par rec 
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Le GS, l'Apple // Graphique-Son, a 
manifestement relancé la machine des 
productions freeware et shareware de 
qualité. Dans ce numéro de Pom's : trois 
nouvelles disquettes de polices GS, deux 
disquettes de sons GS, une nouvelle 
disquette de jeux GS, une nouvelle 
disquette d'utilitaires GS. 


Du coup, malgré le succès que vous 
faites aux premières disquettes d'images 
GS, les suivantes sont repoussées au 
prochain Pom's (nous terminons le tri et 
le classement). 


Les disquettes de polices sont livrables 
en version 5,25" ou 3,5", puisqu'elles 
fonctionnent sur tout Apple //. Mais les 
nouvelles DPA ne sont fournies qu'en 
version 3,5" : d'une part, parce qu'elles 
ne fonctionnent que sur GS, et d'autre 
part parce que nous cherchons à ‘tasser”’ 
un maximum de programmes et de 
données sur les disquettes. 


Trois nouvelles disquettes 
de polices 


Ces nouvelles polices sont en partie le complément des 
disquettes précédentes (elles fournissent par exemple des 
tailles différentes dans les mêmes polices, comme 
ZapfDingbats ou Chicago), mais elles sont aussi en grande 
partie nouvelles (des batteries de polices de toutes tailles 
intéressantes comme Boston II, Highwood, Wall 
Street, ou des polices particulières comme Banner et 
Banner It, qui font des affiches, les "Marquées" et autres 
qui sont décoratives, des polices de codes à barre, etc.). 

Ces polices, rappelons-le, sont utilisables comme polices 
système sur GS (en les mettant dans le sous-catalogue 
/SYSTEM/FONTS), mais aussi sur //e ou //c avec des 
logiciels comme TimeOut Superfonts, Publish-It!, 816 
Paint //e, etc. 


Le fichier AppleWorks “Font Viewer” est un fichier pour 
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TimeOut Superfonts permettant de voir sur écran ou 
imprimante les caractères contenus dans les polices. Pensez 
à changer le nom de la fonte après <1=...2>. 


Le fichier FontViewer.GS (Shareware) permet de voir ces 
polices sur écran dans les différents styles et les différentes 
tailles. I1 faut pour cela être sous ProDOS 16 et avoir mis 
les polices dans le sous-catalogue /SYSTEM/FONTS de 
votre disquette système. 

Tous renseignements sur ces polices (polices Macintosh en 
fait) peuvent être trouvées dans Apple IIGS Toolbox 
Reference, Volume 2, pages 16-41 et suivantes, et... dans 
la collection de Pom's. 

Vous trouverez dans la collection de Pom's et dans les DPA 
tout le nécessaire pour éditer et travailler ces polices. 


Polices 16 


Aldous.12 - Aldous.18 - Aldous.24 - Aldous.36 - Ascham.09 
Ascham.10 - Ascham.12 - Banner.24 - Banner.48 - Banner.lt.24 
Banner.it.48 - Barcode39.09 - Barcode39.12 - Barcode39.18 
Bocklin.40 - Bostonil.09 - Bostonil.10 - Bostonil.12 - Bostonil.18 
Bostonil.20 - Bostonil.24 - Cactus.Deco.18 - Cactus.Deco.36 
Cactusdeluxe.48 - Charleston.10 - Charleston.12 - Charles- 
ton.14 - Charleston.18 - Charleston.20 - Charleston.24 - 
Charleston.28 - Chicago.09 - Chicago.14 - Chubby.24 - Code.3 
.0f.9.18 - Code.3.0f.9.24 - Code.3.0f.9.30 - Copenhagen.18 
Coptic.10 - Coptic.20 


Polices 17 


Dallas.18 - Des.Moines.10 - Des.Moines.12 - Des.Moines.20 
Des.Moines.24 - Dover.08 - Dover.i0 - Dover.i2 - Eire.12 
Epsilon.12 - Epsilon.18 - Epsilon.24 - Epsilon.36 - Eta.Medium.12 
Eta.Medium.18 - Eta.Medium.24 - Eta.Medium.36 - Finita.12 
Highwood.10 - Highwood.12 - Highwood.14 - Highwood.18 
Highwood.20 - Highwood.24 - Honda.18 - Honda.24 - Hous- 
ton.36 - Icon2.38.24 - Kalona.09 - Lambda.18 - Lamoni.09 
Lionheart.i2 - Marqueedecouc48 - Matrix.24 - Matrix.48 
McCloud.36 - Melrose.12 - Melrose.24 
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Polices 18 


Micro.09 - Micro.12 - Micro.18 - Micro.20 - MICRO.24 
Milwaukee.12 - Milwaukee.24 - Mix.18 - Monaco.22.18 
Monaco.30.24 - New.Haven.48 - New.Monaco.09 - New. 
Monaco.12 - New.Monaco.14 - Phi.Display.18 - Phi.Display.36 
Princeton.12 - Princeton.24 - Plymouth.36 - Quebec.48 
Rho.Semibold.12 - Rho.Semibold.18 - Riviera.12 - Riviera.24 
Sunnyvale.12 - Wall.Street.09 - Wall.Street.10 - Wall.Street.12 
- Wall. Street.14 - Wall.Street.18 - Wall.Street.20 - Wall. 
Street.24 - Wall.Street.28 - Wall.Street.36 - Wall Street.48 
ZapfDingbats.14 - ZapfDingbats.18 


DPA 019 Jeux GS Volume 2 


Une nouvelle disquette pleine de jeux pour le GS 
uniquement. Chargez-les depuis GS/OS, chacun est dans 
son sous-catalogue. Tous ces jeux sont en freeware, sauf 
Video Poker, qui est en shareware (10 dollars). Ce sont : 


1 L'inénarrable et indispensable ATLT (As The Link 
Turns) dont J. - Y. Bourdin vous parle avec tant 

d'enthousiasme dans ce numéro. 

Commentaire Pom's : Apple |! fort et vert. 

2 Fillmaze, de Jason Harper, un labyrinthe en trois 
dimensions et en couleurs, très amusant. Il est conçu 

pour démontrer une technique d'animation graphique 

appelée ‘Fill Mode”. 

Nous recommandons la lecture des notes pour le 

programmeur dans la documentation. 

Commentaire Pom's : ce jeu est conçu entre autres pour 

prouver ‘qu'il est parfaitement possible d'écrire des logiciels 

graphiques de haute qualité sur le GS sans faire des choses 

stupides, telles qu'interdire l'accès au tableau de bord, exiger 

un redémarrage en sortie, utiliser des adresses fixes sans les 

réserver d'abord. Et il le prouve. 

3 GS Backgammon, un jeu de jaquet très bien fait de 
Phil Doto. 

Commentaire Pom's : l'ordinateur gagne souvent... 


4 Maze Creator, qui, comme son nom l'indique, 
fabrique des labyrinthes sur écran, mais surtout sur 
imprimante. Son originalité, c'est de pouvoir imprimer des 
labyrinthes de plus de 5 pages A4 de long, d'un seul tenant, 
et de la largeur d'une imprimante grand chariot ! 
Commentaire Pom's : quelques semaines pour en sortir… 
5 Music Game, de Phil Doto, est un jeu amusant pour 
apprendre les notes. Il montre aussi ce que peuvent les 
outils de GS/OS (Note Synthetizer et Note Sequencer). 
Commentaire Pom's : il montre aussi ce que peut le GS 
comme outil éducatif. 
6 Video Poker, de Todd Wood et Doug Davies, est un 
poker au sens des casinos, c'est-à-dire une machine à 
sous fondée sur des donnes de poker. Très bien programmé, 
de niveau commercial. 
Commentaire Pom's : pour ne pas perdre sa chemise à Las 
Vegas... 
Enfin, comme il restait un peu de place sur la disquette, 
vous y trouverez quelques sons GS numérisés (voir nos 
commentaires sur les ‘DPA SONS”). 





DPA 020 GS Utilities Vol. 4 


Une belle série d'utilitaires GS, freeware et shareware, sur 
cette disquette. Une remarque : la vocation de nos disquettes 
DPA est de faire connaître et diffuser le maximum de bons 
programmes en freeware et en shareware pour l'Apple //. En 
conséquence, nous nous en excusons auprès des auteurs, 
nous avons enlevé les systèmes des disquettes originales 
pour ‘tasser” le maximum de programmes sur la disquette. 


Lecteurs, nous comptons sur vous pour savoir replacer 
éventuellement les fichiers d'icônes, les polices, les ‘Init’ 
de /SYSTEM.SETUP etc. et lancer les programmes depuis 
le Finder de GS/OS ou Prosel, et aussi trouver les fichiers 
de documentation. Vous pouvez également reconstituer des 
disquettes bootables avec GS/OS. 


Deux de ces programmes vous ont déjà été présentés dans 
Apple // For Ever de Pom's 42 (pages 66-67, rubrique 
‘Vive la France”). Il s'agit de : 


1 Polyssons (version 4.2), excellent synthétiseur réalisé 
en freeware avec beaucoup d'humour par un éléphant 
Saint Cyrien. 
Commentaire Pom's : que l'humour ne cache pas qu'il 
s'agit d'un programme largement de niveau ‘pro’. Bravo 
Babar. 
2 Fontasm, de Stéphane Hadinger, le magnifique éditeur 
de fontes GS. Ce programme est en shareware à 150F. 
Commentaire Pom's : lecteurs, nous comptons fermement 
sur vous pour envoyer ces 150 F à l'auteur. C'est 
considérablement moins cher que le Beagle Font Editor, et 
c'est meilleur (eh oui). Sur notre disquette, vous avez une 
version qui fonctionne, et la documentation. Mais en 
envoyant les 150 F à l'auteur, vous aurez une version plus 
complète. Si nous voulons que les programmeurs de talent 
continuent à travailler sur le GS, il faut que ça leur 


rapporte. 


Outre ces deux excellents programmes français, vous 
trouverez sur la disquette : 


3 Alarm.Cda, un excellent accessoire (freeware de David 
Hill) qui fonctionne comme réveil et/ou agenda, et vous 
‘sonne’ aux dates et heures prévues pour vous rappeler ce 
que vous avez programmé. Un gros travail de 
programmation a permis de le rendre compatible avec la 
plupart des configurations et applications. 
Commentaire Pom's : ce CDA est conçu entre autres pour 
être géré très facilement avec Jumpstart, l'excellent lanceur 
de programmes (DPA 14). L'ensemble fonctionne 
impeccablement (fonctionne aussi très bien sans 
JumpStart). 
4 CustomGSOS, une amusante application freeware 
qui vous permet de remplacer le texte et l'image qui 
accompagnent le thermomètre au démarrage de GS/OS 
(4.0), par l'image et le texte de votre choix. 


Commentaire Pom's : c'est tout l'Apple I{, ça. 
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5 PrintScreen.Cda est un accessoire (freeware) tout 
simple, qui fait une copie d'écran sur imprimante de 

l'écran 40 ou 80 colonnes. 

Commentaire Pom's : le Pomme-H universel que vous 

nous avez si souvent demandé. 


6 Squirt 16, shareware (20 dollars) de Steven 
Stephenson, est un excellent sélecteur de programmes 
ProDOS 8-GS/OS, qui a l'insigne mérite d'être peu 
gourmand en mémoire et d'être ultra-rapide, car il travaille 
en mode texte. Steve Stephenson est un excellent 
programmeur (c'est lui qui a fait les modifications à 
AppleWorks pour les cartes Checkmate Technology). 
Commentaire Pom's : depuis que le Finder a enterré le 
Program Launcher, et que Prosel a enflé en passant sous 
GS/OS, on n'avait plus de petit lanceur simple et rapide. 
GS/OS et le Finder sont prévus pour gérer 7 lecteurs par 
slot et 32 partitions par lecteur : Squirt 16 est un sélecteur 
simple pour l'utilisateur ordinaire, celui qui n'a pas 224 
volumes dans chaque slot ! 
7 StartSound, freeware de Guy Rice, vous permet 
d'envoyer un beau son numérisé au lancement d'un 
disque GS. Votre GS démarre en vous disant bonjour. 
Commentaire Pom's : pour les sons numérisés, voir les 
autres disquettes DPA. 





DPA 021/022 Sons Vol. 1/2 


Après le ‘G’ du GS, objet des DPA 17 et 18, voici le tour 
du ‘S’ : deux disquettes pleines de sons numérisés (tous 
différents, même si les noms sont voisins). Les cartes de 
numérisation fonctionnent bien, sur GS. 

Précisons : si une carte de numérisation est nécessaire pour 
enregistrer ces sons, il n'est besoin d'aucune carte 
particulière pour les éditer, les mettre dans vos programmes 
etc., une fois qu'ils sont sur la disquette. C'est la même 
chose qu'avec les images numérisées. 

Ce fut, là aussi, un gros travail de tri et de rangement. 
C'est volontairement que nous n'avons mis sur ces 
disquettes que peu de musiques proprement dites : pour faire 
de la musique sans saturer la mémoire, il vaut mieux jouer 
des instruments et des outils du GS (voir AmperSon dans 
Pom's 42 par exemple). 

Les sons numérisés sont donc surtout utiles comme 
bruitages, paroles, etc. 

Comment gérer tous ces sons ? On peut tout d'abord les 
éditer, pour les travailler, les couper-coller, les ralentir ou 
les accélérer, leur donner de l'écho etc. C'est l'objet de 
l'excellente application freeware SoundStudio que vous 
trouverez sur chaque disquette de sons (à lancer sous 
GS/OS). Pom's recommande aussi l'application Sound 
Shop, incluse dans HyperStudio. 

Pour inclure ces sons dans vos programmes, nous vous 
recommandons bien entendu HyperStudio : nous sommes 
dans l'ère de l'Hypermédia, nos programmes doivent 
désormais être "graphiques/sons", et HyperStudio, comme 
Hypercard sur le Mac, est ce qui le permet le plus 
facilement. 
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Mais n'oubliez pas trois autres usages de ces sons, usages 
amusants et faciles : 


- travailler sous AppleWorks GS (ou autre) avec une 
musique de fond, qui joue en même temps que vous 
travaillez (eh oui, le GS le permet) : c'est possible avec le 
NDA Background Music de la disquette DPA 11. 


- lancer un de ces sons au démarrage de la disquette : c'est 
possible avec l'Init (ou TIF : les Init du GS sont des Pif et 
des Tif) Startsound de la DPA 20. 


- remplacer le Bip du GS par un son de votre choix 
(voyez le passage sur AppleWorks-Tarzan dans Apple // 
For Ever de ce numéro). C'est ce que permet l'Init (PIF 
cette fois-ci) Sysbeep que vous trouverez sur la DPA 10. 
Essayez plusieurs sons : à l'usage, il s'avère que si certains 
sons sont lassants comme messages d'erreur, d'autres 
continuent à faire rire à chaque fois. 

Trois précisions enfin : 

- Le suffixe ‘.200”, ‘400’ etc., dans le nom du fichier 
indique la vitesse à laquelle, à notre avis, ce son doit être 
entendu. Mais bien entendu, une des premières choses à 
faire avec SoundStudio, c'est de faire varier cette vitesse, 
pour s'amuser. Cette valeur est déposée dans le type 
auxiliaire du fichier. 


- Beaucoup de ces sons, en particulier les plus courts, 
doivent être entendus en répétition permanente (icône 
circulaire dans SoundStudio), car ce sont des 
‘Tac-à-tac-à-tac’ genre bruit de machine à écrire ou de 
mitraillette. 


- N'oubliez pas que la sortie son du GS accepte un casque 
stéréo : la famille n'apprécie pas toujours quand vous 
bricolez vos sons sur le GS... 


Liste des sons DPA 021 


Aucun.Prob - Battement - Bris - Bruit.i - Bruit.2 - Bruit.3 - 
Bruit.4 - Bruit.5 - Bruit.6 - Bruit.7 - Canon - Chasse.d.Eau - 
Clic.1 - Clic.2 - Clong - Coq - Corne.i - Corne.2 - Corne.3 - Coup 
- Cri - Cymbale - Explosion - Fanfare - Fantome - Finale - Gong - 
Grincement.1 - Grincement.2 - Harpe - Have.Fun - Helico - 
Hello.Computer - Horloge - Machine.1 - Machine.2 - Mitraillette - 
Mitrailleuse - Moteur - Orgue - Ouahh - Peek.Again - Pistolet - 
Plouf - Police - Poussons - Ramponneau - Rebond - Roulement - 
Sonnerie - Tonnerre - Welcome - Woaar - Woops 


Liste des sons DPA 022 


Aigu - Boeing - Boum. - Boum.2 - Brouit - Bruitage - Chuchotis 
- Cloche - Clochette - Craquement.i - Craquement2 - 
Craquement.3 - Crash - Cymbale.2 - Ecroulement - Flute - 
Frappe.i - Frappe.2 - Frappe.3 - Frappe.4 - Frissons.1 - 
Frissons.2 - Frissons.3 - Game.Over - Gemissement - Grillon - 
Jappe - Klaxon - Metal - Pulse - Radar - Rire.f - Rire.2 - Rire.3 
- Sonnerie - Sonnette - Tambour.1 - Tambour.2 - Tarzan - Tir.f 
- Tir.2 - Tir.3 - Trompettes - Vibration.i - Vibration.2 - 
Vibration.3 - Vibration.4 - Vulcan.Mind 


Cette disquette contient également 10 sons issus du Mac : 
ce sont ceux de la disquette Pom's 41 pour le Mac. Pour 
toute documentation sur ces sons, voir Pom's 41 (la parue 
Mac : tout est bon dans Pom's, il faut tout lire). 











9.-Y. Bourdin 





Les lecteurs de Pom’s vont devenir à . = " 
les spécialistes de l'éjection des Récapi tulation eject 
disquettes 3,5” ! Après l'art et la Après avoir saisi ces codes sous moniteur, 
manière d'éjecter depuis le Basic, vous les sauvegarderez par : 
! . create eject, t$B9 
l'assembleur, MacPro, depuis 5 bsave eject, aS$2000, L$14B, T$B9 
AppleWorks ou depuis Prosel via un 

° = CE 2000:4B 01 00 00 00 00 00 00 EA 00 00 00 00 CA 04 02 
fichier-système, voici un 2010:00 00 01 00 00 10 00 00 00 00 00 00 00 00 00 00 
mini-CDA. 2020:00 00 01 00 00 00 00 00 2C 00 40 00 45 4A 45 43 

. 2030:54 20 20 20 20 20 45 4A 45 43 54 20 20 20 20 20 

Il trouvera sa place dans le dossier 2040:F2 EA 00 00 00 0B 47 72 69 6C 6C 65 2D 50 61 69 


DESK.ACCS des disquettes GS. Il 2050:6E 94 00 00 00 AC 00 00 00 00 00 00 00 00 00 00 


: 2060:00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
suffit alors de faire G-ctrl-esc pour 2070:00 00 00 00 00 00 00 00 00 00 00 09 00 00 00 00 


voir le nouvel accessoire de bureau 2080:00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
ns 0 A4 NZ: : 2090:00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
grille.pain” prêt à éjecter le disque 20A0:00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
situé en port 5 lecteur Le 20B0:00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 


20C0:00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 


Bi d À ho bb ce À 20D0:00 00 00 00 00 00 00 00 00 4B AB 38 FB E2 30 20 
ien entendu, C est un samedi SOIr que le outon d éJection 20E0:AD 00 20 BC 00 22 00 20 00 20 CB 00 18 FB C2 30 


de l’un de mes lecteurs 3,5” a choisi pour rendre l’âme : pas  20r0:68 68 A2 00 BF 00 20 00 9D 14 00 E8 F0 80 DO F4 

de SOS-Loiseleux possible. En attendant, puisque le lecteur  2100:60 A2 00 BD DA 00 SF 00 20 00 E8 E0 80 DO F4 60 

acceptait toujours d’éjecter par soft, je me suis fait en 2110:A2 00 BD 14 00 9F 00 20 00 E8 EO 80 DO F4 60 20 

vitesse un mini-CDA pour pouvoir éjecter au milieu de 2122:02 C5 04 07 20 6B 03 01 0B 20 04 00 00 O0 OU EF? 

n'importe quel programme, sans quitter le programme. 2130:08 00 00 00 00 05 9B 9E A5 B4 BF CE F5 03 00 10 
L 2140:00 AC 00 F5 03 00 OC 00 94 00 00 

Vous trouverez cet accessoire, avec le source (Merlin 16), 

sur la disquette Pom'’s. . 

Attention, cet accessoire n’est en fait qu’un patch : il ne Source Ejec t.S 

vérifie rien, il n’affiche rien, il éjecte le disque en slot 5, Merlin 16 

drive 1, c’est tout (si vous l'avez mis dans le 

sous-catalogue /SYSTEM/DESK.ACCS de votre disque 








à Fe REL 
système, bien sûr). DSK  EJECT.L 
La seule chose intéressante dans le source, c’est le truc TYP  CDA 
employé pour utiliser le banc zéro : le SmartPort exige MX 800 ; assemblage 16 bits 


d’être appelé en mode huit bits depuis le banc zéro. Comme 
on ignore où l’accessoire est placé en mémoire, on copie 
80 octets de la page zéro dans un tampon à l’intérieur de 
l'accessoire, on copie le code d’éjection dans le banc zéro, 
on l’exécute, puis on recopie le tampon dans le banc zéro. 


œ 
na 
Z 
E 
S 
Il 


$002000 


Dernier détail, si vous voulez qu’il éjecte du drive 2, mettez STR  ‘'Grille-Pain' 
02 à la place de 01 en $2127) : ADRL START ; Adresse point d'entrée 
ADRL EXIT ; Adresse routine sortie 


La routine d'éjection proprement dite gagnera à être *---=======----2-2----222222222s2sssss ses 
généralisée pour fonctionner avec tout type de contrôleur BUFFER DS $80 
(en n'appelant pas directement $Cn0D) et tous 


ports/lecteurs. Là, à vous de jouer, le squelette est donné... START P#K ; Récupère banc Progr 


PLB ; y fixe le banc données 
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registres 8 bits 


0 





transporte routin 
éjecte depuis banc 


rétablit 00/2000 
passage en 16 bits 


assemblage 8 bits 


sauve le banc 0 











SEP $00110000 >; 
JSR SWAP1 ; met 00/200 
JSR SWAP2 L 
d'éjection 
JSL BANKO ; 
JSR SWAP3 a 
CLC ; 
XCE 
REP $#00110000 
RTL 
EXIT RTL 
k=z--zzzsz-——————— === 
MX 811 ; 
SWAP1 LDX £0 
: LUP LDAL BANKO,X ; 
STA BUFFER, X 
INX 
CPX £$80 
BNE : LUP 
RTS 
HSSSSSSESSSSSSSSSSSSSSEES SES 
MX $11 ’ 
SWAP2 LDX £0 
: LUP LDA JECT,X ; met la routi 
STAL BANKO,X 
INX 
CPX £$S80 
BNE : LUP 
RTS 
homo one ee me eo me me ee ne 
MX $11 ; assemblage 
SWAP3 LDX £0 
: LUP LDA BUFFER,X ; rétabli 
STAL BANKO,X 
INX 
CPX £$80 
BNE z: LUP 
RTS 
ess SSS====e=-==S======— 
MX 11 f 
EJECT ORG $2000 
JSR $C50D » S10€ 9 
DFB £$04 


Si des signes vous échappent *, si vous ne trouvez 
pas % en New-York, si ® vous aurait bien rendu 
service, si les maths X ou les finances Y vous em- 

brouillent le traitement de textes : 


_ EXTRAFONTS 


En plus de son éditeur de polices, 
ExtraFonts imprimera en COULEURS 











ds buffer 


Le] 





TOOLBOX 


35, Bld Richard Wallace 
92800 Puteaux 
® (1) 47 72 27 36 ou (1) 39 89 57 21 
Une coopérative d'achats pour les utilisateurs de l'Apple 2 





Disque dur 32MB Temps d'accès 40 Ms - SCSI 6000,00 Fr (TTC) 


avec carte SCSI ProDOS 8 - ProDOS 16 - GSOS 





HyperStudio 
avec notice 
en français 


HyperCard sur 


Apple II GS 1220,00 Fr (TTC) 





Tous les logiciels de qualité sont disponibles chez TOOLBOX 


HyperStudio - Merlin 8/16+ - Publish it! - ProSel16 - Instant Synthe 
- TML Pascal - AppleWorks GS - PrintShop GS, etc. Arkanoid - Test 
Drive - Sword of Sodan - Dungeon Master - Rocket Ranger - Zany Golf 
- Skate or die, etc. 


- Documentation française complète et support technique sur nos 
produits 


Programmes FreeWare et ShareWare 


Reprise des logiciels achetés chez TOOLBOX 





Catalogue de cartes d'extension - Librairie 


Cours d'initiation : Système ProDOS/GSOS - AppleWorks + Time- 
Out - Langages 


‘ 


Adhésion pour 1 an : 250,00 Fr. 


Demander contre 30,00 Fr notre catalogue complet de produits 








DA : PARMI 
RTL 
: PARMI DF £$03 
DFE £$O1 ; drive 1 
DA : PARM2 
: PARM2 DFB £$04 
DA $0000 
DA $0000 








sur votre ImageWriter II... 
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RESSEMBLENT \ 
TROP AU "S ne: 











La récente mise en shareware de ce 
programme -voir les news de ce 
numéro- fait d'ADN une alternative, 
très attractive en matière de program- 
me de SGBD. 


Tel que le dit Claude Colin son 
concepteur, ADN se veut plus qu’un 
simple programme de ce type. Il serait 
partiellement incorrect, et d’ailleurs ce 
n’est pas dit, d’affirmer qu’ADN, 
arrive à casser les étiquettes sous 
lesquelles sont classifiés les pro- 
grammes, pour en faire un programme 
à tout faire. Ça a été un petit peu le 
problème d’HyperCard, que de dire que 
l’on pouvait tout en faire, et tellement 
tout, qu’on en faisait plus grand 
chose. Mais malgré ses airs de 
facilités, ne vous y fiez pas, ADN est 
très puissant. 


Tout commence 
par un bureau 


Dès le lancement d'ADN, vous vous 
retrouvez devant une fenêtre à la 
Finder, qui affichera les fichiers et/ou 
applications ADN ouverts. Au fur et à 
mesure de l’ouverture des bases ADN, 
le menu Accès s’enrichit du nom de 
ces bases, et il est possible de lancer 
une application ADN sans repasser par 
le Finder. Jusqu’à vingt-quatre fichiers 
peuvent être ouverts simultanément 
pour une même application. 


Le mode 
utilisation 


Comme tout SGBD qui se respecte, 
ADN permet une utilisation à un 
niveau bas à savoir le fonctionnement 
d’une application déjà programmée, et 
donc de manière totalement transpa- 
rente, c’est-à-dire avec des menus et 


=. ER PE SE EEE 


fenêtres propres à l’application. Le 
niveau haut permet, lui, la program- 
mation de la base. 


Le mode 
modélisation 
Une chose à noter lors d’un premier 


contact avec ce mode, est qu’à aucun 
moment ADN ne fonctionne en 





mise à jour d’un fichier sur l’autre 
n’est pas automatique et doit passer 
par la programmation. 

Tout est objet dans un format, on 
pourra dès lors associer un script à 
n'importe quel objet. 


Ces scripts seront entrés par l'éditeur 
de scripts après choix de l’objet 
concerné. L'éditeur permet de réduire 
au minimum la saisie au clavier par la 


é Fichier Edition Objets RETTTITE 


D ——_—_—— fermes prMicipaux 


Programmation BIT SI 


D BOUCLE 1.3 
À CALCUL [Fx®]= [MonNombre] 
d lCALCUL [Sc*]= [MonNombre] 
SI [*] #3 
IALORS 
H ICALCUL [Fn#] = [MonNombre] 
FINC 
FINBCL 


Base de données 
Affichages et curseur 
Images et sons 
Mathématiques 
Riphanumériques 
Temps et évènements 


ALORS 
ISINON 
ICALCUL 
ISELECT 
ICLASSE 


Communications 
Impressions et sorties 








Procédures externes. 
Réserve. 


structure rigide, avec la nécessité de 
définir la structure des fichiers et 
éventuellement des liens unissant les 
fichiers. C’est lors de la création de 
formats que l’on indique si les rubri- 
ques créées doivent appartenir à un 
fichier, ou à un simple document qui 
peut n’être qu’une feuille unique de 
travail, fixe ou variable. C’est lors du 
passage à l’utilisation, qu’ADN va 
faire sa cuisine d’organisation des 
rubriques et d’éventuels index. Cette 
méthode permet de créer extempo- 
ranément des rubriques dans un fichier. 
Les liaisons se font dans ADN, par 
appel dans un format à une rubrique 
d’un fichier différent. Toutefois, la 





sélection des mots-clef et des objets 
par des menus et listes. À noter qu’à 
n’importe quel niveau d'ADN, on 
dispose d’une aide en ligne 
extrêmement complète. Il suffit de 
choisir pour cela le mode ‘Aide’ et de 
sélectionner l’article de menu ou le 
terme de programmation sur lequel on 
désire plus d’informations. 

ADN possède en outre un objet 
particulier appelé pictogramme. 
Schématiquement cela consiste à avoir 
une zone image variable, en fonction 
des données d’un fichier. C’est par ce 
biais que peuvent être générés des 
graphiques en deux ou pseudo trois 
dimensions. Des exemples sur les 
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disquettes d'accompagnement mon- 
trent ce que l’on peut en faire, et en 
couleurs, les résultats sont plus 
qu'intéressants. 

Les termes de programmation 
proprement dits, sont proches du 
langage naturel, et offrent des 
possibilités complètes. Toute la 
puissance du Mac s’y retrouve, depuis 
les commandes de bases de fichiers 
jusqu’à la gestion des communications 
avec les gros systèmes. Si ayant 
atteint un haut niveau de program- 
mation, il manque une commande, il 
est toujours possible de l’ajouter par 
l'intermédiaire de commandes ex- 
ternes, écrites dans des langages de 
base, comme le Pascal, le C, ou 
l’assembleur. 

La programmation objet surprend un 
peu à ses débuts, puisqu'il arrive 
parfois que l’on sache plus très bien à 
quel objet on s’adresse, mais un peu 
d’habitude permet de rétablir ce petit 
défaut. 

L'utilisation d’un format créé, ne 
souffre pas de remarques particulières, 
et des menus complets permettent de 
naviguer dans les fichiers. Le passage 
d’un format fiche à un format liste, 
n’est pas à première vue évident, mais 
une fois acquis le fonctionnement, on 
se rend compte que ce format permet 
de sortir des informations statistiques 
sans programmation là où les 
programmes similaires en demandent 
un minimum. On ne peut pas qualifier 
la rapidité d’ADN d’hors du commun, 
mais elle reste dans des limites raison- 
nables. 

En conclusion ADN surtout au prix 
auquel il est proposé désormais, est un 
redoutable outsider. Puissant, et facile 
d'utilisation, il peut largement être 
une alternative à HyperCard, lorsqu’on 
veut utiliser ce dernier comme 
gestionnaire de bases de données. 
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é Document Edition Type Réglages Présentation HeCes 


Graph_3D 


Population 1 


Evolution 


Saisir un nombre puis cliquer. 


———————…—— Fixe 


0 dec 1250 
1250.00 


1250.000000 


2 dec 
9 dec 


Saisir une date puis cliquer. 


— Court — Réduit 
21/10/55 21 Octob 1955 


Saisir un mot puis cliquer. 


Pom's 
Pom s 
Pom's 
Poeme 
Pom's 





21/10/55 


1250.00000 


—— Scientifique mms 


1e+3 
1.25e+3 


1.250000000 


Cliquez ici. 


— Long 
21 Octobre 19535 
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Grâce à la mémoire virtuelle, le Macintosh va pouvoir 
disposer pour travailler de beaucoup plus de mémoire (celle 
indiquée par le À propos du Finder...) qu'il n'y en a 
réellement dans la boîte (le nombre de SIMMS installés). 
Cependant, cette innovation nécessite une Paged Memory 
Management Unit PMMU) qui est contenue dans le 
68030, ou dans un coprocesseur ajouté au 68020 : le 
68851. Comment cela fonctionne-t-il ? 


Rappels sur 
le fonctionnement 
du processeur 


En simplifiant un peu, on peut considérer le processeur 
(CPU), l'ensemble de la mémoire (RAM) et la PMMU 
comme des boîtiers munis de broches et reliés entre eux par 
des fils : 


C mn me 
p Address Bus Address Bus 


U 
Data Bus ; 


Remarque: dans le 68030, la PMMU est physiquement 
située dans le boîtier du CPU, la partie gauche du schéma 
n'est donc pas observable concrètement, bien qu'elle soit 
encore valable. 


Faut-il rappeler que la fonction unique du processeur 
consiste à manipuler des données, en les lisant à partir de la 
RAM et en les y écrivant ensuite ? Pour ce faire, il doit 


Alain Raynaud 


donner les paramètres de l'opération à effectuer par 
l'intermédiaire des bus, qui ne sont rien d'autre que des 
lignes électriques groupées. Par exemple, si le CPU veut 
écrire le long $753 à l'adresse $10000, il indiquera 
S00010000 sur le bus adresse et $00000753 sur le bus 
donnée. 


Avant la mise en œuvre des mémoires virtuelles, l'adresse 
spécifiée par le processeur correspondait exactement à 
l'adresse de la mémoire lue. L'astuce qui permet la mémoire 
virtuelle, c'est d'intercaler sur le bus adresse un composant 
qui modifie l'adresse indiquée par le CPU. Cela signifie que 
si le processeur demande à écrire à l'adresse $10000, la 
mémoire elle, recevra une demande d'écriture pour une autre 
adresse. Voila comment on définit alors la notion d'adresse 
logique et adresse physique : l'adresse logique est celle que 
le processeur indique, l'adresse physique est celle que la 
mémoire reçoit. 


Translation des adresses par 
la PMMU 


La translation est l'opération qui consiste à transformer 
l'adresse logique en adresse physique. Bien sûr, c'est au 
programmeur de définir comment elle est effectuée par la 
PMMU. Celle-ci dispose des trois registres : CPU ROOT 
POINTER, DMA ROOT POINTER et SUPERVISOR 
ROOT POINTER qui pointent chacun vers une table, qui 
sera utilisée en fonction de la provenance de la demande de 
translation : accès CPU, DMA ou Superviseur. Le plus 
simple est que ces trois registres pointent vers la même 
table, mais dans certaines configurations, on pourrait être 
encore plus subtil en différenciant la zone mémoire obtenue 
et limiter ainsi, par exemple, les accès DMA à certaines 
zones. Ce n'est pas la cas pour la Mémoire Virtuelle pour 
Macintosh : il y a une seule table. 


Cette table indique, pour chaque tranche de la mémoire que 
le CPU peut adresser, la tranche correspondante telle qu'elle 
doit être vue par la mémoire. Chaque tranche, ou page, a 
une largeur choisie parmi les valeurs suivantes : 256 
octets, 512 octets, 1, 2, 4, 8, 16 ou 32K0o. On réalise alors 
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qu'il faudrait beaucoup d'entrées dans la table pour coder Premier principe : grâce à la translation des adresses, 
tout l'espace adressable par le 680x0 : au moins 130 000. les 2 Mégas disponibles sont accessibles par le processeur, 
En fait, la structure de cette table est assez complexe car bien que les adresses physiques et logiques ne correspondent 
elle peut être ramifiée (c'est-à-dire sous forme d'arbre), ce pas. 

qui permet justement de ne pas devoir fournir une chaîne 
linéaire de 130 000 valeurs ! D'autre part, il faut bien 
comprendre que cette table doit être remplie avant que la 
translation ne soit mise en marche. Ensuite, pour chaque 
instruction que le processeur exécutera, la PMMU 
effectuera seule les translations nécessaires . explorant la mémoire à laquelle le processeur veut accéder (en la mettant 
table adéquate, sans que le processeur ait à intervenir de à la place de la zone sauvée), puis change la table de la 


quelque façon que ce soit. PMMU afin que cette nouvelle zone soit reconnue. Enfin, 
. elle indique au CPU de reprendre ses activités comme si 

La table résidant en RAM, et ayant une structure en arbre,  ;jen ne s'était passé. Ce swapping de la mémoire (en réalité 

la PMMU peut mettre beaucoup de temps avant de trouver bar petits blocs de 32Ko) est possible grâce à la facilité 

la translation qui s'applique. Parfois, cela peut durer 80 Qu'ont les 680x0 de pouvoir recommencer un cycle d'accès à 

cycles, ce qui est considérable. Pour éviter ce type d'ennuis, la mémoire de façon transparente après une erreur. 

qui reviendrait à multiplier par au moins deux ou trois le 

temps d'exécution de chaque instruction, la PMMU 

dispose d'un cache interne qui contient les 64 dernières Con clusion 

translations utilisées. Lorsqu'on fait appel à l'une d'elles, 

elle est pratiquement instantanée, ce qui explique qu'en 

période d'exploitation normale, la mémoire virtuelle ne 

ralentit pas le processeur. C'était le but recherché. 


Deuxième principe : les 2 autres Mégas sont marqués 
indisponibles. Lorsque le processeur essaye de les adresser, 
il reçoit une exception : Bus Error. Une routine sauve tout 
d'abord une zone mémoire (la moins utilisée en principe) 
sur le disque, charge alors à partir du disque la zone 


En fait, la deuxième étape est la plus compliquée, car il 
s'agit d'écrire une routine d'exception, qui doit donc ne 
toucher théoriquement à rien. Cependant, elle est bien 
obligée de manipuler le disque, ce qui peut poser des 


Réalisation de la Mémoi re problèmes d'incompatibilité avec certains programmes qui 


1 manipuleraient le disque en même temps. 
Virtuelle De même, les debuggers qui manipulent la PMMU alors 
qu'ils font des accès mémoire risquent de ne pas apprécier 
du tout. Mais comme c'est Apple qui a écrit tout ça, nul 
doute qu'il fera de nouvelles versions ‘compatible Mémoire 
Virtuelle”. 


Avec tout cela, comment réaliser un système qui utilise 
l'espace disponible sur disque pour augmenter la capacité 
mémoire ? Admettons qu'on veuille réaliser un système qui 
utilise 2 Mégas de mémoire réelle pour le transformer en 4 
Mégas de mémoire virtuelle. Le constat de fonctionnement  Ltre part, le temps perdu par la mémoire virtuelle sous 


est le suivant : à un instant donné, seul 2 Mégas Sont yhiFinder sera camouflée par la méthode d'utilisation : 
accessibles, sur les 4 censés exister. on aura chargé en même temps plusieurs applications 
‘mémorivores’, mais une seule sera active à la fois. 
we ass Ë ee La mémoire virtuelle ne fera perdre du temps que lors du 
processeur croit adresser réelle passage d'une application à une autre. Or, ce passage prend 
: déjà du temps au niveau du MultiFinder, donc la perte de 
quelques dixièmes de secondes supplémentaires sera 
invisible. Mais on gagnera la possibilité d'avoir beaucoup 
d'applications chargées simultanément (alors qu'en réalité 
elles resteront sur disque). 


Bibliographie 





Pour en savoir plus, on lira avec intérêt les bibles 
Motorola : 


Mo MC68851 Paged Memory Management Unit User's 
Manual — Prentice Hall 





Translation MC68030 Enhanced 32 Bit Microprocessor User's Manual 


4 
— Prentice Hall 
Ce 
M CS 
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Le livre d'AppleTalk, par Jean-Pierre Curcio 
et Jean Robberecht, Editions du PSI — 491 pages 
— 310,00 F 


La bible de tout ce qui touche à la communication 
autour du réseau AppleTalk, mais sans se limiter 
au monde Apple. La première partie de l'ouvrage 
concerne les utilisateurs et représente à elle seule 
l'équivalent d'un bon livre (260 pages). La 
seconde partie est purement technique et — partant 
— illisible pour l'utilisateur lambda du Mac, mais 
elle ravira certainement tous ceux qui mangent du 
câble au petit déjeuner. 


Wingz - Tableur et Wingz - Graphiques, 
fonctions de calcul, par Nathalie Barbary, 
MémoMac Cédic/Nathan — 64 pages et 55,00 F 
chacun 


Ce sont des aide-mémoire comportant en outre un 
certain nombre de conseils d'utilisation et 
d'astuces. Dans cette collection, les ouvrages sont 
de qualité inégale (certains ne sont que des 
résumés de la documentation) mais, nous l'avions 
déjà remarqué avec Excel, Nathalie Barbary a bien 
travaillé et ses MémoMac sont utiles. 


Le Macintosh Professionnel — Le premier 
guide évolutif de la Micro Mac, par Hervé Thiriez, 
Jean-Christophe Krust et Philippe Mathieu, 
Editions WEKA — 600 pages — 895,00 F TTC 
(760,00 lors de la promotion initiale) 


Le Macintosh évolue sans cesse, de même que les 
logiciels qui lui sont destinés. Il devenait 


ple Expo 


DU MERCREDI 27 SEPTEMBRE AU 
SAMEDI 30 SEPTEMBRE 1989 
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Alexandre Duback 


indispensable d'avoir un ouvrage qui suive cette 
évolution de façon régulière. C'est le cas avec 
cette bible de l'utilisateur Mac qui sera suivie —3 à 
4 fois par an — d'additifs de plus de 200 pages 
chacun. 


Les auteurs de cet ouvrage ont déjà neuf autres 
livres sur le Macintosh : ils sont donc parfaitement 
qualifiés. La maquette est agréable, le plan du 
livre très clair, et un index détaillé permet de s'y 
retrouver facilement. En outre, les auteurs 
proposent de nombreux conseils d'utilisation et 
astuces. 


En plus, je ne peux pas dire du mal de mon 
rédacteur en chef ; il serait capable, en deux coups 
de souris, de me mettre à la Corbeille et de Vider 
la corbeille ! 


Le livre d'Illustrator, par Olivier Castelli, 
Editions du PSI — 357 pages — 295,00 F 


Tout ce que vous avez jamais voulu savoir sur 
Illustrator, avec une maquette originale et de très 
nombreuses illustrations qui mettent en relief les 
possibilités graphiques de ce logiciel. Le principe 
général est simple : les pages de gauche 
contiennent des illustrations et les pages de droite 
le texte, à raison en général d'un thème par paire 
de pages. C'est un livre splendide avec tout ce 
qu'il faut pour s'y retrouver (renvois dans les 
marges, index avec lexique, tables des matières à 
plusieurs niveaux, …). Enfin un auteur qui prend 
ses lecteurs au sérieux ! ". 


POM'S VOUS ACCUEILLERA SUR SON STAND 
(M9) AU GRAND RENDEZ-VOUS ANNUEL 
D'APPLE. 


ECONOMISEZ LE PRIX DE L'ENTREE (70,00 F) 
EN NOUS DEMANDANT UNE INVITATION 
(VOIR PAGE 71). ELLE VOUS PERMETTRA 
EGALEMENT DE RECEVOIR A DOMICILE 
VOTRE BADGE MAGNETIQUE INDISPEN- 
SABLE A UNE VISITE FRUCTUEUSE. 
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Les utilitaires Symantec ne sont 
pas des nouveautés, mais nous 
n'avions pas encore eu le temps 
de vous en parler. Voici donc 
enfin un banc d'essai de ces 
utilitaires qui vous permettent 
respectivement de : 


+ _ protéger le contenu de votre 
disque dur ; 

+ récupérer 
perdues ; 

* optimiser le fonctionnement 
de votre disque dur ; 

* créer des volumes sur le 
disque dur ; 

+ copier des disquettes plus 
rapidement ; 

* intervenir directement sur le 
contenu d'un disque dur. 


tout cela se faisant 
simplement à partir d'un 
programme qui joue le rôle de 
centrale de distribution de vos 
requêtes. 


des données 


Présentation générale 


Les utilitaires sont fournis sous 
la forme d'un manuel de 180 
pages et de deux disquettes 
enfichées dans la troisième de 
couverture. Des explications 
détaillées sur la façon de copier 
les fichiers sur votre disque dur 
sont fournies dans la 
documentation. Une fois 
l'installation terminée, vous 
avez un dossier ‘Disk ClinicT"” : 


CR 


Les utilitaires 





C'est l'application Disk Clinic 
qui effectue le lancement des 
autres applications, bien que 
rien ne vous empêche de les 
lancer directement si vous le 
préférez, à condition que vous 
sachiez bien ce que vous faites. 


Nous allons passer en revue les 
différents programmes 
constituant l'ensemble des 
utilitaires de Symantec. 


Guardian 


Ce programme est le plus 
original de la série, et c'est 
probablement la principale 
raison d'achat du produit. 
Guardian offre quatre sécurités : 
la protection d'un volume contre 
des virus ou des destructions 
accidentelles, la restauration 
d'un disque écrasé, la 


Disk Clinic'"* 


10 éléments 


E|è] 


Disk Clinic 


SN 


Guardian 


Fr 
QuickCopy 


HD TuneUp 


Scanner 
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HFS Recoyer 


18 634K dans disque 
HFS EF 


> | 


Signatures 


Symantec Tools 
X1LX Ï ee 


Disque He 


rar 







Floppy Recover 


H, Thiriez 


restauration de fichiers écrasés 
par erreur, et la restauration 
d'un disque initialisé par erreur. 
Quand Guardian a été installé 
sur votre disque dur, où il 
occupe moins de 1 % de la 
place, il garde une trace de vos 
opérations sur les fichiers, de 
façon à pouvoir par exemple 
restaurer un fichier ‘poubellisé” 
par erreur. Il possède une liste, 
dont la mise à jour se fait 
automatiquement, des 100 
derniers fichiers que vous avez 
effacés. 


Les paramètres de Guardian, 
accessibles grâce à son Init 
appelée Shield, vous permettent 
de garder chacune des options 
suivantes active ou non : mise à 
jour de la liste des fichiers 
effacés, mise à jour du catalogue 
de votre volume (et 
d'informations permettant de 


mieux le récupérer en cas 
de problème grave), et 
protection du volume. 


Bien entendu, plus vous 
demandez de protection, 
plus le fonctionnement du 
Mac est ralenti : il y a donc 
un équilibre à trouver 
entre protection et rapidité 
de fonctionnement. 


Sans rentrer dans trop de 
détail, nous pouvons dire 
que Guardian apporte une 
bonne sécurité de fonc- 
tionnement, mais que — 
K 7] lorsque toutes les options 


De sont actives — le ralentis- 


sement de fonctionnement 
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HD TuneUp 


Cette application sert à améliorer 
les performances du disque dur 
en "dé-fragmentant" les fichiers. 
En effet, plus un disque dur est 
proche de la saturation, plus les 
fichiers sont mémorisés par 
morceaux non consécutifs, le 
Finder sachant quand même 
heureusement s'y retrouver. 


Ce programme reprend tous les 
fichiers et essaye de les 
réenregistrer dans des zones 
connexes du disque dur. Pour 
qu'il soit performant, il est donc 
efficace de commencer par 
copier du disque dur (sur des 
disquettes de sécurité) un ou 
deux gros fichiers que l'on 
détruira du disque pour y faire 
de la place, et qu'on remettra 
après la réorganisation du 
disque. 


Ce programme marche bien, 
mais il est hélas incomplet. 
Après avoir utilisé HD TuneUp, 
j'avais essayé de créer une 
partition de 3 Mo, alors qu'il 
restait plus de 5 Mo de libres sur 
le disque. Le programme de 
partition m'a répondu qu'il n'y 
avait pas assez de place : en 
effet, HD TuneUP défragmente 
les fichiers, mais il ne 


ADI 


regroupant tous les espaces 
libres ensemble ; vous pouvez 
alors avoir 5 Mo de libres, sans 
qu'il n'y ait de zone de 3 Mo 
consécutifs qui soit libre et vous 
permette de créer une partition. 


Pour tout regrouper sur un 
disque, il faut utiliser un 
programme comme Disk 
Express, qui ne fait hélas pas 
partie du package Symantec. 
Sans un tel programme, HD 
TuneUp perd une grande part de 
son intérêt. 


HD Partition 


Cette application sert à créer des 
partitions sur votre disque dur, 
avec ou sans mot de passe, 
montables ou non au démarrage 
du Mac. Un tel utilitaire est très 
utile avec un disque dur de 20 
Mo et indispensable avec tout 
disque de 40 Mo ou plus. 


QuickCopy 


Ce progiciel est présenté comme 
un programme de copie 
extrêmement rapide. Pour ma 
part, je ne lui ai pas trouvé de 
rapidité particulière par rapport à 
d'autres programmes de copie 
en ma possession, certains 
mêmes fort anciens. 


ADM.res 


ADN 


un shareware 
d'avance 





du Mac est sensible. reconstitue pas les disque en HFS Recover, Scanner 


et Floppy Recover 


HEFS Recover est déjà connu de 
la plupart des utilisateurs du 
Mac. Ne perdons donc pas de 
temps à en parler : c'est un 
excellent logiciel de récupération 
de fichiers et de disquettes, en 
tout cas largement supérieur à 
l'incompétent ‘SOS Disque’ 
fourni par Apple, qui ne m'a 
jamais récupéré quoi que ce soit. 


Pour aller plus loin, quand HFS 
Recover ne suffit pas, vous avez 
deux autres utilitaires de 
récupération, Scanner et Floppy 
Recover. Gageons que si vous 
avez une disquette foireuse qui 
résiste à ces trois produits, vos 
chances de la récupérer sont 
bien faibles. 


Symantec Tools 


Notons enfin l'éditeur de 
secteurs Symantec Tools, un 
produit réservé aux bidouilleurs 
et autres développeurs. Ce 
produit permet de consulter un 
fichier ou un disque dur, au 
caractère près, et de modifier ce 
que l'on veut. C'est parfait pour 
rendre votre disque dur illisible, 
si vous l'utilisez sans 
discernement. 


Conclusion 


Les Symantec Utilities sont 
vendues par BR Publishing, au 
prix modique de 1 490,00 F 
HT. Dans l'ensemble, ces 
utilitaires sont une petite mine 
d'or. Quand on voit ce que peut 
coûter l'impossibilité de relire 
une disquette, a fortiori un 
disque dur, on réalise que l'on 
peut se les offrir sans hésiter. 


La documentation est claire et 
les programmes conviviaux. 
Mon principal regret est 
l'absence dans ce package d'un 
utilitaire comme Disk Express. 
A good buy ! Good bye ! 
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Jean-L c Bazanegque 


Jusqu'à présent, les programmes que l'on pouvait 
trouver dans Pom’s —pour le Macintosh— était 
écrits essentiellement en Basic ou en assembleur ; 
cette démonstration de l'utilisation du ‘Color Picker 
Package’ est en C —LightspeedCTM pour être 
précis— langage qui monte non sans raison : 
souplesse et portabilité du langage, développement 
du système Unix... 


Bien que le source de la démonstration soit écrit en 
LightspeedCTV, il est entièrement compatible avec les autres 
langages C disponibles pour le Macintosh, y compris celui du 
‘Workshop’ Apple. Nous avons choisis LightspeedCTM pour sa 
facilité d'utilisation (il n'est pas nécessaire de lire une 
documentation de 200 pages pour savoir comment on met en 
place le ‘shell’), son débugger performant, la possibilité 
d'écrire des accessoires de bureau ou autres drivers sans avoir 
recours à l'assembleur, et bien d'autres choses qui facilitent la 
vie du programmeur. 

Le programme ‘Palette’ ne fait certes pas grand chose d'autre 

qu'une démonstration ; il peut cependant servir de noyau pour 

le développement de vos propres applications. Vous n'aurez 
ainsi pas à passer par l'étape de l'écriture de la gestion des 
événements, opération toujours un peu délicate. 

Le ‘Color Picker Package’ est une fenêtre de dialogue 

extrêmement bien conçue, utilisée à chaque fois que 

l'utilisateur a besoin de choisir une couleur. C'est le cas, par 
exemple, de l'option Couleur du Tableau de bord. L'appel du 
dialogue en C est particulièrement aisé : 

*__on définit une variable de type ColorSpec (adresse pointant 
sur les trois couleurs fondamentale rouge, vert et bleu), ou 
deux variables si l'on veut conserver en mémoire l'ancienne 
couleur : 

ColorSpec AncienneCouleur:; 
ColorSpec NouvelleCouleur; 

+ __on définit une variable (locale généralement) indiquant la 
position de l'angle supérieur gauche du dialogue. 0, O0 
permet d'obtenir un centrage automatique tenant compte de 
la taille de l'écran utilisé : 

static Point Ou = { 0,0 }; 

+ on appelle le dialogue. La fonction retourne vrai si 
l'utilisateur a ‘cliqué’ sur le bouton OK, et faux pour le 
bouton Annuler : 

GetColor(Ou,"\pCouleur", 
&AncienneCouleur &NouvelleCouleur) 

‘Palette’ donne aussi un exemple de sauvegarde de paramètres 

dans des ressources : les couleurs des lignes et du fond sont 

mémorisées ; ainsi, on retrouve les couleurs choisies pendant 
la précédente utilisation lorsque l'on relance l'application. 
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L'ERRRROHOR HORREUR KOKOAOK OA OKORORON HRK ARR RAR AK KR RE  k / 
/* Palette */ 
du ef) 
/* utilisation du Color Picker package en C */ 


LR RRROR OR OR KR ORKORKORR OR ROKOROR KA AK K A KR A KR OROKOK KE K OK XKk / 





#include <QuickDraw.h> 
#include <MacTypes.h> 
#include <WindowMgr.h> 
#include <MenuMgr.h> 
#include <EventMgr.h> 
#include <DeskMgr.h> 
#include <ToolboxUtil.h> 
#include <ColorToolbox.h> 


JR RER ROROROR HRK HOUR HRK AR RUE / 


/* Définition des constantes */ 


LRRRRORROR HRK OR RORORORKR RO UHR KR KE / 


#define mPomme 128 
#define mFichier 129 
#define mEdition 130 
#define mCouleurs 131 
#define Oui 1 
#define Non 0 


LR RERO RR HR HR ee / 


/* Variables globales */ 


ER ERELEEEESESLLELLSELSSL 


WindowPtr pFenetre; 

WindowkRecord eFenetre; 

MenuHandle hMenus[3); 

ColorSpec cLignes; 

ColorSpec cFond; 

Rect dragRect = { 0,0, 1024, 1024 }; 





VÉLLLELEL PE case inDrag: 
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/* main */ 
LRRRRERRX / 


main() 

{ 

TestCouleur(); 
InitGraf(&thePort); 
FlushEvents(everyEvent, 0); 
InitWindows(); 
InitMenus(); 

InitCursor(); 
MaxApplZone(); 


if (GetResource( MENU", 128) == 0) 
{ 
SysBeep(1); 
return; 


} 


CreeMenus(); 
SaisieCouleurs(); 
OuvreFenetre(); 


while (Boucle()); 
} 


VÉLELEZLLLLLLLLLLELELELESEEEEELELLLLLSSLS... 


/* attente et traitement des événements */ 


VÉELLLLLLLEELLLLLELELELELEEEELLLLSLSLSSS SSSR 7 


int Boucle() 

{ 

EventRecord evenement; 

WindowPtr quelleFenetre; 

Rect r 

SystemTask(); 

if (GetNextEvent(everyEvent, &evenement)) 
{ 


switch(evenement.what) 
{ 
case mouseDown: 
switch(FindWindow 
(evenement.where, &quelleFenetre)) 
{ 
case inDesk: 
SysBeep(10); 
break; 
case inMenuBar: 
return(dansMenu 
(MenuSelect 
(evenement.where))); 
break; 
case inSysWindow: 
SystemClick(&evenement, 
quelleFenetre); 
break; 
case inContent: 
if (quelleFenetre {= 
FrontWindow()) 
Select Window 
(quelleFenetre); 
break; 





{ 

GrafPtr sauvePort; 
GetPort(&sauvePort); 
SetPort(pFenetre); 
DragWindow(quelleFenetre, 
evenement.where, 
&dragRect); 
SetPort(sauvePort); 





} 
break; 
default: 
break; 

} 


case keyDown: 
case autoKey: 


} 


{ 
register char c; 
c = evenement.message & 
charCodeMask; 
if((evenement.modifiers & cmdKey) 
!= 0) 

return(dansMenu(MenuKey(c))); 


break; 
case activateEvt: 


{ 
if (evenement.modifiers & 
activeFlag) 
{ 
Disableltem(hMenus{2], 0); 
DrawMenuBar(); 
} 


else 


{ 
Enableltem(hMenus{2], 0); 


DrawMenuBar(); 
} 
} 
break; 
case updateEvt: 
MiseAJour(); 
break; 
default: ; 
} 
} 
return(1); 


} 


PERRLELLELELLELLLELLSSLLSSELES 7: 


/* Traitement des menus */ 
PRRELELESLELSSSSSSLSS SSL SSL: 


int dansMenu(Retour) 


long Retour; 

{ 

int Article; 
Str255 nom; 
WindowPeek Pointeur; 


Article = LoWord(Retour); 
switch(HiWord(Retour)) 
{ 
case 128: 
{ 
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Getltem(hMenus{0], Article, &nom); 
OpenDeskAcc(&nom); 
SetPort(pFenetre); 
} 
break; 
case 129: 
Quitter(); 
break; 
case 130: 
break; 
case 131: 
ChoixCouleurs(Article); 
break; 
default: 
break; 
} 
HiliteMenu(0); 
return(1l); 


} 


'RRERRELRESESEESLLESLSELS SE 7. 


/* Création des menus */ 


ARR RERESESELLELLSLLLLSS 7 


CreeMenus() 

{ 

register int index; 

hMenus{0] = GetMenu(mPomme); 
hMenus{1] = GetMenu(mFichier); 
hMenus{2] = GetMenu(mEdition); 
hMenus{3] = GetMenu(mCouleurs); 
AddResMenu(hMenus|{0], DRVR'); 
for (index = 0 ; index < 4 ; index++) 
InsertMenu(hMenus[index], 0); 
DrawMenuBar(); 


} 


LRRRRRERÉR OR RRÉ KR KR UK HE HR EH  EA  KO K e / 


/* Création de la fenêtre en fonction */ 
J* de la taille de l'écran */ 


A RRROROROROAORORRORKO RH R AE ER KR À / 


OuvreFenetre() 

{ 

SetPort((pFenetre = GetNewCWindow(128, &eFenetre, 
-1L))); 

SizeWindow(pFenetre, screenBits.bounds.right - 16, 
screenBits.bounds.bottom - 50, Oui); 
ShowWindow(pFenetre); 

} 


LR RER R RO ROR HRK KR KR KR KR ARR RE RAR XX À / 


/* Récupération des couleurs sauvegardées */ 


/* dans les ressources ‘Clig’ et ‘Cfon’ */ 
LRRRRRORORRORROKRORRREOKKEH ee e ee e K N K / 


SaisieCouleurs() 

{ 

Handle Res; 

Res = GetResource('Clig', 128); 
HLock(Res); 

BlockMove((Ptr)*Res, &cLignes, 6); 
HUnlock(Res); 
ReleaseResource(Res); 

Res = GetResource('Cfon', 128); 
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HLock(Res); 
BlockMove((Ptr)*Res, &cFond, 6); 
HUnlock(Res); 
ReleaseResource(Res); 


} 


LR ERREUR RIRE ARR EH HD A EX 


/* Teste la présence d'une carte couleur */ 
/* Si noir et blanc, retour au Finder F/ 


LR RE ER OREHREHHDDO À / 


TestCouleur() 

{ 

SysEnvRec e; 
SysEnvirons(1, &e); 

if (e.hasColorQD == 0) ExitToShell(); 
} 


1 ARR HE HREEREREE  NN / 


/* Mise à jour de la fenêtre */ 


'RRREREESESEEEELELELSELLLLLLELS LES 7 


MiseAJour() 
{ 

Rect r 
register int ÿ 


GrafPtr  sauvePort; 


GetPort(&sauvePort); 
SetPort(pFenetre); 
r = (*pFenetre).portRect; 
InvalRect(&r); 
BeginUpdate(pFenetre); 
RGBBackColor(&cFond); 
r = (*pFenetre).portRect; 
EraseRect(&r); 
RGBForeColor(&cLignes); 
i=8; 
while (i < r.bottom) 
{ 
MoveTo(O, i); 
LineTo(r.right, i); 
i+=8; 
} 
i= 16; 
while (i <r.right) 
{ 
MoveTo(i, 0); 
LineTo(i, r.bottom); 
i+= 16; 


} 
EndUpdate(pFenetre); 
SetPort(sauvePort); 

} 


A RRR ANR RE UHERER HEAR HD DH HA AK / 


/* Traitement du menu ‘Couleurs’ */ 
LR RRRRIRE RER HE RH D DH HA AK / 


int ChoixCouleurs(Article) 
int Article; 

{ 

switch(Article) 











/* Sauvegarde couleur du fond */ 


case 1: /* Couleur des lignes */ 
{ Handle Res; 
static Point Ou={0,0}; Res = GetResource('Cfon!', 128); 
if (GetColor(Ou,"\pCouleur des HLock(Res); 
lignes",&cLignes,&cLignes)) BlockMove(&cFond, (Ptr)*Res, 6); 
{ HUnlock(Res); 
/* Sauvegarde couleur des lignes */ ChangedResource(Res); 

















Handle Res: WriteResource(Res); 
Res = GetResource(Clig', 128); InvalRect(&pFenetre->portRect); 
HLock(Res); } 
BlockMove(&cLignes, (Ptr)*Res, 6); } 
HUnlock(Res); break; 
ChangedResource(Res); } 
WriteResource(Res); return(l); 
InvalRect(&pFenetre->portRect); J 
} } JEREREREREREREX / 
break; /* C'est fini */ 
case 2: /* Couleur du fond */ SSPPNSRERRENEEN/ 
{ ; 
static Point  Ou={0,0}; Quitter() 
if (GetColor(Ou,"\pCouleur du es 
fond",&cFond, &cFond)) Soins. 
{ 
RKRRERERRRRRRRRRRÉRRÉRÉRRÉÉEARÉÉE 80000400 8E000200 Type MENU 
“ Ressources de la & 9B000200 95000100 ,129 
x démonstration ‘Palette’ * 9B000100  8E000100 Fichier 
RRRRÉRÉRÉRÉÉRÉÉRRÉRÉRÉRÉÉRÉRÉRÉRÉÉRÉEXÉX EX 801C0100 403E0200 Quitter/Q 
403E0400  203E0800 
Palette.x.rsrc 101C1000 08002000 Type MENU 
2222222? 0600C000  01FF0000 130 
| Type Pttd =STR 003FFF00  O0FFFFCO Edition 
| no) 01FFFFEO O03FFFFFO Annuler/Z 
| Pom's - Programme de O7FFFFFS  OFFFFFF8 (- 
| démonstration - 10 août 1989 1FFFFFEC  1FFFFFFC Couper/X 
3FFFFFFE 3FFFFFFE Copier/C 
Type BNDL 3FFFFFFE 7FFFFFFE Coller/V 
,128(32) 7FFFFFEC FFFFFFF8 Effacer 
Pttd 0 FFFFFF00  FFFFFCO0 
ICN# FFFFFECO00  FFFFFCO0 Type MENU 
0 128 FFFFFCO0O0  FFFFFEO00 131 
FREF FFFFFE00  FFFFFFO00 Couleur 
| 0 128 FFFFFF00  FFFFFF00 Couleur des lignes. /L 
FFFFFF00  7FFFFEO00 Couleur du fond.../F 
Type FREF 7FFFFCO0  3FFFF800 
1128(32) 1FFFF000  OFFFEO00 * Ressource pour la couleur du 
APPLO 07FFC000  01FF0000 fond 
* Fenêtre 
* Icône de l'application Type Cfon = GNRL 
Type WIND 128 
TYPE ICN# = GNRL ,128 H 
| 128(32) Palette 8481 5CBA 9FFF 
2 42 8 344 504 
003FFF00  00C000C0 invisible NoGoAway * Ressource pour la couleur 
01000020  020E0010 4 des lignes 
04110388 08150448 0 
10110444  100E0444 Type Clig = GNRL 
20000382 20000002 RRAUS ,128 
2701E002  4D83F002 H 
48870804  B8D8608F8 Type MENU 2B06 DF8B FFFF 
87021300 8001E400 160 
80000400 80000400 \14 
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L'événement : 
ADN en 
shareware 


Controle X, vous connaissez, 
oh peut être n’étiez vous point 
encore nés. 

C'était il y a un siècle peut-être, 
non plus sérieusement cinq ans, 
soit effectivement un siècle en 
informatique. Cette société avait 
édité alors aux tout débuts du 
Mac un système de gestion de 
bases de données appelé CX 
MacBase. 

Et il advint à Controle X ce qu’il 
est advenu à beaucoup 
d’éditeurs de logiciels : faillite. 


G+M vous connaissez 
récemment encore ils éditaient 
(entre autres) un système de 
gestion de bases de données 
nommé ADN Concept. Point 
commun avec Controle X : 
dépôt de bilan. 


Autre point commun, l’auteur de CX 
MacBase et d'ADN ne font qu’une 
seule et même personne : il s’agit de 
Claude Colin. Deux faillites 
d’éditeurs dans une vie d’auteur cela 
commence à faire lourd. Et d’autre 
part, que faire des acheteurs d’un 
logiciels qui y ont mis, sinon leur 
confiance, tout au moins le souhait de 
voir un produit sérieux et suivi ? 


Ariel Sebban 


Claude Colin n’est pas un homme 
ordinaire, face à ce nouvel avatar, il a 
décidé de suivre une démarche aussi 
originale que courageuse. Son dernier 
né : ADN, il l’a mis en shareware 
vous allez bien lire : à 300,00 F. 


Oui un programme équivalent à 4D, 


en diffusion 


ridiculement bas. Car il faut vous dire 
qu’ADN n'est pas un petit utilitaire, 
mais bien un vrai programme 
générateur d’applications au même 
titre qu'Omnis, 4D et autres. 


J'ai voulu comprendre ce qui pouvait 
bien pousser un auteur à faire ce que 


libre à un prix 





Hervé Thiriez 


Au cas où vous n'auriez pas compris le titre, il signifie ‘poms ou 
somp ?”. En effet, les hiéroglyphes se lisent, selon le cas, de gauche 
à droite ou de droite à gauche. Et nous avons utilisé pour écrire ce 
titre la police vectorisée téléchargeable AmonFont, développée par 
Cheikh M'Backé et Samory Cancade DIOP, et diffusée par Micro 
Informatique 91 à Orsay (© (1) 64 46 05 85). 


La disquette de démo que nous avons reçue ne nous permet pas de 
connaître, dans le cas de Pom's, le bon sens de lecture du texte. Si 
nous avions eu 4 900,00 F HT à dépenser pour obtenir le produit 
complet avec ses 1 432 signes (soit 3,42 F/signe), nous ne serions 
peut-être pas si ignares. 


De toute façon, si vous devez écrire une lettre d'amour à Cléopâtre, 
et qu'elle vaut bien — comme l'histoire semble l'indiquer — ce 
prix-là, offrez- vous donc la police AmonFont ! 
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certains qualifient de folie, d’autres de 
courage. Je suis donc allé le rencontrer 
pour vous, et voici ce qu’il m’a livré : 


Pom’s : Claude Colin vous avez pris 
une initiative tout à fait originale à la 
suite de nombreux déboires commer- 
ciaux avec différents éditeurs. 


Claude Colin : C’est vrai, et j'ai 
essayé de réfléchir un peu aux raisons 
de tout ça, et d'en tenir compte en 
mettant au point une nouvelle 
stratégie commerciale qui s'adapte à la 
situation et au produit. Et mon 
analyse a été qu'un produit nouveau, 
en tout cas qui cherche à se lancer 
-parce qu'ADN a quand même une 
certaine historique- se heurte 
aujourd'hui à de grandes difficultés. Il 
y a de plus en plus de produits. La 
distribution a de plus en plus de mal à 
tout prendre en compte. Donc lancer 
un nouveau produit c'est aujourd'hui 
très difficile, et cela demande en tous 
cas beaucoup d'argent. Et qui dit 
beaucoup d'argent dit aussi beaucoup 
de risques, et je crois que c'est pas 
raisonnable. 

Donc il fallait trouver une autre voie. 
Cette autre voie pour moi, cela a été 
de dire finalement, d'une part il faut 
avoir confiance en son produit, d'autre 
part il faut faire confiance aux 
utilisateurs. Et donc je me suis dit 
qu'au fond, on demandait aux utili- 
sateurs, quand on commercialise 
classiquement un produit, de s'engager 
sur des sommes assez importantes, 
sans vraiment savoir. On leur vend 
quelque chose qui vaut ce qu’on leur 
demande, parce qu'en fait cela 
représente un investissement d'études 
important, mais en fait, on leur 
demande, de prendre tous les risques. 
L'idée était donc, de séparer dans le 
prix d'un produit, ce qui est l'achat 
proprement dit, du service qui doit 
entourer le produit. En se disant que 
finalement, on pouvait proposer un 
produit à un prix que je qualifierais de 
symbolique, de sorte que pratiquement 
tout le monde puisse l'acheter, sans 
craintes el sans risques. 


À partir de là, à partir d'un produit 
acheté à très bas prix, avec tous les 
fichiers de documentation, tous les 
fichiers d'exemples, enfin tout ce qui 
permet de se faire véritablement une 
idée et d'apprendre un produit, ceux 
qui seront intéressés vraiment, et qui 
voudront en faire un usage profes- 
sionnel, ce qui est quand même sa 
vocation, ceux-là pourront, s'ils le 
veulent, passer à une deuxième étape 
qui est celle de travailler avec nous 
dans le cadre de contrats d'abonnement 
de services, de support techniques, ou 
dans des cadres de développement de 
choses plus particulières. 

En résumé puisqu'un produit ne peut 
pas atteindre une large diffusion, sans 
des moyens de lancement très impor- 
tants, il vaut mieux favoriser sa 
diffusion par un prix purement 
symbolique, et après coup créer un 
coopération, une collaboration entre 
les techniciens du produit, et les 
utilisateurs. 


P.:N'y a-t-il pas en France un 
éditeur capable de tenir le coup avec 
ADN ? Et s'il n'y en a pas, n'avez- 
vOUS pas songé à vous exporter, aux 
U.S.A par exemple ? 

C. C.:Si. Il y eu des tentatives 
pour monter un lancement là-bas, 
mais on se heurte aux mêmes 
problèmes : des investissements qui 
sont très importants, plus importants 
aux États-Unis évidemment qu'en 
France, cela se compte en millions de 
dollars. Et miser des sommes 
pareilles, dans un univers très concur- 
rentiel est très risqué. D'autant que 
beaucoup de produits sont annoncés et 
qu'on ne sait pas trop comment va 
réagir le sien. 

Ma conviction est que ADN devrait 
avoir toutes ses chances, et devrait 
pouvoir l'emporter. Mais, je sais 
aussi, ayant une certaine expérience 
maintenant dans ce métier, que ce 
n'est pas qu'une affaire technique, de 
qualité de produit, de philosophie. Je 
crois qu'il y a bien d'autres choses qui 
interviennent. Et donc pour bien jouer 
un lancement, il faut beaucoup 
d'argent, aux États-Unis encore plus, 
et les financiers ont reculé. Peut-être 
qu'en insistant j'aurais pu trouver une 
solution, mais auraïit-ce été vraiment 
une bonne solution ? Est-ce qu'on 








peut lancer des produits comme ça, en 
faisant des paris financiers complets. 
Lorsqu'on lance une affaire, en général 
il y des actifs, quelque chose de plus 
ou moins solide. Là il n'y a qu'une 
idée qui requiert énormément de mises 
de fond de départ et cela peut être tout 
ou rien. 


P.: Ne vous êtes vous pas tourné 
vers les grands éditeurs, comme 
Microsoft, par exemple. Ne 
pouvaient-ils pas être intéressés par un 
bon produit, comme le vôtre ? 


C. C.:Je n'en sais rien. Je ne les ai 
pas consultés. Mais de toutes façons 
j'ai une certaine réticence envers les 
grands éditeurs, parce que je pense 
qu'ils ont beaucoup de produits, et du 
même coup chaque produit n'a pas 
forcément l'intérêt qu'on peut attendre 
pour qu'il soit bien lancé. En plus un 
auteur ne contrôle plus du tout sa 
création. Je suis assez réticent, j'ai 
peut-être tort, mais ce n'est donc pas 
une voie qui me tente. Je me sens 
franchement plus en confiance avec 
une démarche comme celle que j'ai 
adoptée, qui fait appel aux gens pour 
qui le produit est fait, directement. 

Ce produit est fait pour les 
utilisateurs. Il part de l'idée de ce que 
selon moi devrait être l'informatique 
faite pour eux. Je m'en remet à eux en 
fin de compte. Je leur dit : voilà mon 
produit que vous pouvez avoir pour 
presque rien, regardez et après on en 


reparle. 


P. : Et après trois semaines, pouvez 
vous tirer un premier bilan ? 


C. C.: Oui un premier bilan très 
partiel, bien entendu, mais ce qui est 
sûr, c'est que je suis aujourd'hui dans 
cette affaire beaucoup plus détendu que 
je ne l’étais il y quinze jours. Parce 
que ce que je constate, ce que 
j'espérais mais qui n’était pas évident 
a priori, c'est que l'idée passe très 
bien. Cette formule plaît énormément. 
Non seulement parce que finan- 
cièrement elle permet beaucoup de 
choses qui n'auraient pas été possibles 
autrement, mais aussi parce qu'elle 
déclenche la sympathie, autour du 
produit. C'est quelque chose qui est à 
noter : très souvent lorsque des gens 
achètent le produit, il y des 
commentaires, du type ‘bravo pour 


Pom’s n° 43 








votre initiative, c'est formidable, on 
va vous aider, je contacte tous ceux 
qui on un Mac pour leur en parler 
etc.'. Il se passe réellement quelque 
chose, qui n'est pas très classique, 
dans les réactions des gens. Ça 
m'encourage beaucoup. À laisser un 
produit comme ça librement copiable, 
avec toute sa documentation, on aurait 
pu s'attendre à ce que les gens ne 
jouent pas le jeu. Or je m'aperçois 
qu'il le jouent. On m'a beaucoup dit, 
avant de lancer cette initiative qu'en 
France les gens ne jouent pas le jeu. 
En fait c'est peut-être vrai, mais 
ADN, avec cette initiative, les choses 
se passent différemment. 


Les gens prennent conscience qu' ADN 
c'est pas un jeu, c'est pas un 
accessoire de bureau, c'est quand 
même un très gros produit. Ça crée un 
type de rapports et de réactions 
complètement différents. Et là je sens 
vraiment que le courant passe. 
Évidemment après quinze jours, on ne 
peut pas dire qu' ADN est au sommet 
de sa diffusion, mais il n'y a pas de 
doute pour moi que ça a pris un départ 
sur les chapeaux de roues, surtout si 
on tient compte de la faible 
information, à ce jour. Malgré cela 
tous les jours nous recevons un 
certain nombre de commandes des uti- 
lisateurs que j'appelle de la deuxième 
génération, ceux qui ont acheté parce 
que quelqu'un a acheté, ce qui après 
quinze jours est très rapide comme 
retombées. 

Il faut néanmoins noter, que la plupart 
des gens qui achètent à ce jour, 
achètent à son prix le plus bas. 
C'est-à-dire, que les contrats d'abon- 
nement sont pour l'instant moins 
nombreux. Mais il y en a. Surtout, il 
paraît normal que les gens commen- 
cent par tester le produit avant de se 
lancer dans une collaboration plus 
importante, qui au total n'est pas si 
coûteuse que ça, puisque tous les prix 
de services associés, sont nettement en 
dessous de ceux de ses concurrents. 
Donc sans crier victoire trop vite, je 
crois que ce n'est pas mal parti. 


P.: Est-ce que vous pensez que tout 
cela est réellement viable ? Même si 
la synergie existe, même si le nombre 
d'achats croît, il ne faut pas se cacher 
que pour avoir le même rapport 
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Où tu CRECH ? 
En HyperFac ! 
La Faculté des Sciences Éco- 


nomiques de Montpellier vient 
de créer un centre de recherche 


original, le CRECH (Centre | 


de Recherche Européen et 


Création Hypermédias), sous | 
la direction d’Alain Dumas, et | 


animé par Daniel Garric, jour- | 


naliste scientifique au Point 
(rubrique Futurs) et un des plus 
ardents prosélytes en France de 
l’hypertexte, et d’ailleurs de 
l'innovation sous toutes ses 
formes. 


Daniel Garric a toujours su lier 


| leplaisiretletravail;ilestdonc 


naturel qu’il se soit intéressé à 
l’hypertexte, qui en réalise très 
bien la fusion. C’est d’ailleurs à 
lui que l’on doit le terme 


| “‘gadjouet” qui marie en un mot 
| les notions d’innovation et de 


plaisir. 


Ce premier centre de recherche 
sur l’hypertexte en France 
délivrera un diplôme de 
troisième cycle, un mastère, la 
première promotionréntranten 
octobre 89, dans lequel les 
travaux en liaison avec des 
entreprises joueront un rôle 
important. 


C’est de l’enseignement à 
l’américaine — pragmatique — 
hélas trop rare en France. 
Souhaitons le plus vif succès à 
cette entreprise originale et 
dynamique ! 














financier, il en faut vendre quinze fois 
plus de logiciels que par le passé. 

C. C.: Vous avez partiellement 
raison. Si on ne vendait que du 
shareware, l'écart est effectivement de 
un à quinze. En fait il est un peu 
moins que cela, parce que la façon 
dont nous vendons ADN est moins 
coûteuse. Il n'y a pas d'action 
commerciale sur tout le territoire, les 
charges sont nettement moindres, et 
sont concentrées essentiellement sur 
l'aspect technique et le soutien des 
utilisateurs. Donc si le prix est quinze 
fois inférieur à ce qu'il était, il suffit 
que le nombre de programmes vendus 
soit seulement dix fois supérieur, pour 
un même chiffre d'affaires, à condition 
toujours de ne considérer que les 
shareware. 

Il y a aussi un pourcentage que je ne 
peux pas encore évaluer d'abon- 
nements, qui va modifier ce rapport. 
Nous allons aussi lancer, dès 
septembre un certain nombre d'appli- 
cations, et de compléments d'ADN qui 
vont être proposés à des prix très bas, 
et qui augmenteront de toutes façons, 
le chiffre d'affaires d'Initiative ADN. 
Et il faut voir qu'on va être une 
société de soutien du produit, avec des 
développements spécifiques, et c’est de 
cet ensemble dont il faut tenir compte, 
en terme de chiffre d'affaires à réaliser, 
pour obtenir le même niveau de 
résultats. 

Je ne crie pas victoire trop vite, sur le 
plan économique, mais je n'aï pas le 
sentiment que ce que je fais soit 
incohérent, loin de là. C'est quand 
même calculé, avec une marge 
d'incertitude forcément importante, 
mais c'est loin d'être absurde. Et je 
crois en plus que ça entre dans un 
mouvement plus général. Aujour- 
d'hui, les utilisateurs notamment 
professionnels, sont bien plus pré- 
occupés par le service que par le 
produit. Et ils ont raison. Les produits 
sur le marché actuellement sont dans 
l'ensemble bons. La différence se fait 
surtout par la qualité du service. Je 
veux donc insister la-dessus car c'est 
très important. Il y a deux originalités 
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Un 





dans notre démarche : il y a un choix 
économique, on ne vend plus de la 
même façon. On casse les prix des 
produits pas des services, qui eux sont 
vendus à leur juste prix. C'est un 
choix commercial. 


Par ailleurs ADN en lui-même, et cela 
n'a pas été assez dit au début de 
l'exploitation de ce produit, est un 
produit qui se veut différent des autres, 
pour des raisons très fondamentales, 
peut-être pas visibles en quelques 
minutes sur l'écran. Ces différences 
tiennent à une volonté beaucoup plus 
grande, à mon avis, de coller à la 
façon de raisonner des utilisateurs, et 
de suivre leur démarche. 


Dans ADN on ne demande pas aux 
utilisateurs qui développent leurs 
applications de trop penser à l'avance 
à ce qu'ils vont faire, du moins de 
façon moins insistance que dans 
l'informatique traditionnelle. En ce 
sens, plus ils vont avancer dans leurs 
applications, plus ils vont avoir des 
nouvelles idées, quelquefois ils vont 
revenir en arrière, tout cela dans ADN 
est vraiment facilité. 





Je crois que les utilisateurs le 
ressentent quand ils l'utilisent, mais 
ils ne peuvent pas le ressentir au 
moment de l'achat, ils n'en savent 
rien à ce stade. C'est pour ça qu'il est 
important pour moi de favoriser une 
grande diffusion, qui permettent aux 
gens d'aller suffisamment dans le 
produit pour ressentir ça. Après je 
dirais que c'est gagné, car ils savent 
que c'est en fait ce qu'il leur faut. 


P.:Si nous parlions justement 
d'ADN, un peu plus, en tant que 
produit. 

C. C.: On dit à juste titre que c'est 
une base de données et générateur 
d'applications. Mais compte tenu de 
son concept de base, c'est forcément 
plus que ça. Je veux dire par là, que 
l'idée de départ d'ADN, c'est de dire 
qu'on est habitué à raisonner sur des 
documents papier, sous forme 
diverses, des fiches, des lettres, toutes 
sortes de choses, avec des images, des 
graphiques, des tableaux etc. 





commence à fausser ce jeu, même sur 
Macintosh. Le jeu est faussé parce 
que, on commence à introduire 
d'autres concepts, que tout le monde 
manipule sans le savoir, mais qui sont 
cachés dans nos raisonnements 
habituels, qui sont par exemple, les 
concepts de fichiers, bases de données, 
liens entre fichiers, calculs, etc. Pour 
l'utilisateur novice il y a d'une part 
l'intervention de concepts nouveaux, 
et d'autre part il y a une séparation des 
tâches, liée à des raisons techniques. 


On sépare base de données, tableurs, 
traitements de textes et autres. Ce 
n'est pas parce qu'on pense différem- 
ment, mais pour des raisons techni- 
ques, il est plus facile de mettre d'un 
côté les problèmes de bases de 
données, et de l'autre les problèmes de 
tableurs, traitements de textes... 


L'idée d'ADN, qui est une idée 
directrice, c'est de dire : tout cela n'est 
pas normal. C'était normal dans une 
certaine phase de l'histoire de la 
micro-informatique, mais ce n'est plus 
normal. Et donc en repartant de l'idée 
de document, ADN essaie d'avancer 
dans une direction qui n'est pas trop 
faussée, par ces idées que j'évoquais. 
ADN permet donc de réaliser des 
documents à l'écran comme on le fait 
sur papier. Bon ça on le fait dans plein 
de programmes, mais toujours en 
oubliant au passage tout un tas de 
choses. 


Si on écrit un document dans un 
traitement de textes, on perd l'idée que 
ça peut être un fichier, ou un 
document de calculs. Ce raisonnement 
étant valable pour les tableurs, bases 
de données etc. ADN essaie de 
repousser le plus tard possible, ces 
choix inévitables en l'état actuel de la 
technique. C'est donc un programme 
qui est construit autour d'une base de 
données, puisque c'est le cœur même 
de ce que doit être un produit. C'est le 
problème le plus dur à résoudre. Mais 
les documents ADN ne sont pas que 
des masques et des fiches. Ce sont 
aussi des documents que l'on dessine 
bien, qui peuvent prendre l'aspect de 
lettres, bien que ce ne soit pas 
vraiment un traitement de textes, ni 
un programme de PAO, mais ça en a 
certains aspects. Ce n'est pas non plus 
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Quand on passe sur ordinateur, on un tableur, mais on peut très bien, 


avoir de documents avec des calculs 
importants, et certains utilisateurs 
font des fichiers de tableurs en fait. 

Ce que je me suis dit c'est que ces 
documents dessinés à l'écran, aussi 
proches de ce que l'on aurait fait sur 
papier, on va découvrir petit à petit 
qu'on peut faire avec, certaines choses, 
qui rentrent dans un cadre naturel. À 
savoir dans un document fichier, 
pouvoir extraire des informations, etc. 
Tout cela vient naturellement. Dans 
cette philosophie, j'ai été amené à 
mettre dans ADN, énormément de 
fonctionnalités. Pour que le produit ne 
devienne pas trop complexe, s'est 
posé le problème d'une stratification 
du programme. ADN peut donc se 
voir à plusieurs niveaux. Il y a le 
niveau de l'utilisateur relativement 
débutant, qui ne veut pas aller très 
loin, mais qui trouve toujours 
beaucoup de choses. Il y a le niveau 
inférieur de l'utilisateur qui utilise une 
application sans savoir comment elle 
est faite. Et puis il y a les niveaux de 
développeurs, depuis celui qui s'est 
enhardi à l'utilisation, jusqu'au 
développeur qui va très loin travaillant 
sur d'autres produits, ou parfois même 
dans un langage de base. 

Tout cela est donc organisé de façon 
que chacun à son niveau ne soit pas 
gêné par les possibilités des autres 
niveaux. Autre idée directrice : le fait 
que chaque idée nouvelle puisse être 
ajoutée sans infliger tout un tas de 
reconfigurations, de difficultés et 
d'inconvénients de tous ordres. 


Pour ce faire outre la notion de 
document, j'ai introduit, depuis 
longtemps déjà, la notion de 
programmation objet, au niveau des 
objets utilisateurs. C'est-à-dire docu- 
ments et fichiers, champs ou 
rubriques, les éléments actifs tels que 
boutons, contrôles, auquel on peut 
affecter un programme, qui s'exécute 
quand on utilise l'élément. S'il s'agit 
d'un bouton, le programme s'exécute 
quand on clique dessus, de même pour 
une rubrique, quand on entre en saisie, 
ou quand on en sort, le programme 
s'exécute. Tout ça fait un ensemble, 
d'abord plus naturel, parce qu'il est 
possible de commencer sans program- 
mation, et petit à petit on vient greffer 
des programmes dessus. 














Qui joue 


avec le feu ? 





Récemment des journalistes ont 
reçu des disquettes contenant des 
sources de la ROM du Macintosh. 


Une mystérieuse organisation 
baptisée Nu-Prometheus re- 
vendiquait la paternité decetacte. 
Selon ses auteurs (inconnus) le 
but de la manœuvre serait de 
répandre la ‘bonne parole’ Macin- 
tosh, afin de permettre à des fabri- 
cants, de construire des compa- 
tibles Mac. On peut se demander 
l'intérêt réel de la manœuvre, sa- 
chant que de toutes façons, les 
ROM avec ou sans sources sont 
protégées par des copyrights, et 
Apple n’a pas l'habitude de faire 
dans la dentelle quand il s'agit de 
se défendre sur la question. 


Par contre, ceux qui ont reçu ces 
sources et en particulier Color 
QuickDraw, n’ont pu que 
s'extasier devant la limpidité de 
ces programmes. La réaction la 
plus courante a été de penser que 
seuls des cerveaux géniaux 
avaient pu pondre de tels codes. 
Mais on le savait déjà. 





Chez Apple, on pense que des 
anciens salariés sont à l'origine de 
cet acte de piraterie. Jean-Louis 
Gassée furieux a saisi le FBI. 
Réaction en privée d’un respon- 
sable Apple France: «Etalorsavec 
TMON et un peu de temps 
n'importe qui peut en faire 
autant !» Bof! Affaire à suivre. 





À chaque nouveau programme 
correspond en fait une nouvelle idée. 
Par exemple, j'ai l'habitude de faire 
ceci, je vais mettre un choix de menu 
correspondant avec un programme 
associé qui le fait pour moi. Dans une 
rubrique, si j'ai toujours la même 
vérification à faire, je vais écrire un 
programme qui le fait systéma- 
tiquement. C'est comme cela qu'un 
débutant programme. L'avantage de ce 
type de programmation est d'être très 
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progressive, et de savoir exactement 
où sont les choses. Si vous avez à 
revenir sur une application, même 
longtemps après l'avoir écrite, ou 
même si vous n’en n'êtes pas l’auteur, 
vous savez où se trouve chaque 
programme. Plusieurs personnes 
peuvent ainsi participer à la cons- 
truction de la même application. Alors 
tout ceci débouche, sur le plan plus 
technique, sur un produit qui peut 
gérer des fichiers, lesquels n’ont pas de 
limites particulières d'utilisation. 
Chaque document peut s' étaler sur des 
pages (jusqu'à trente), ils peuvent ou 
non jouer un rôle de fichier. Les 
champs portent des noms qui 
permettent de les désigner dans des 
relations de tout ordre. Il n'y a pas de 
liens organiques, c'est-à-dire qu'une 
base, au sens habituel du terme, n'est 
pas indissociable, il n'y a pas d'index 
croisés. Lorsque d'un fichier vous 
voulez appeler une fiche d'un autre 
fichier, c'est une instruction de pro- 
grammation qui exprime ce lien, et 
qui fait que par le biais des index, la 
fiche est retrouvée. 


Une application ADN est un groupe 
de fichiers ou de documents, et vous 
pouvez avoir des fichiers ou 
documents qui appartiennent à 
plusieurs applications, ou encore 
ajouter des fichiers à une application 
existante, et même fusionner deux 
applications jusque là utilisées sépa- 
rément. Tout cela sont des choses 
assez inhabituelles dans une base de 
données. 


Les fichiers, sont de deux sortes : les 
fichiers monopostes, qui sont gérés 
par la version diffusée en shareware. Il 
y a aussi une version dite multi-poste, 
orientée vers les très gros fichiers, et 
multi-postes AppleShare, qui permet 
de gérer sous AppleShare, des 
applications multi-utilisateurs, grâce à 
un séquentiel indexé partageable. Les 
fiches sont gérées en longueur 
variable, les champs vides n'occupant 
pas de place, grâce à ce que j'appelle 
une structure de sac, c’est-à-dire que 
les informations sont mises en vrac, 
avec des indicateurs qui disent de 
quelles informations il s'agit. Du 
point de vue de l'aspect des 
documents, il y a des possibilités de 
champs, zones images, fixes ou 
variables, des zones listes qui sont des 








tableaux à l'intérieur d'un document, 
et enfin une particularité d'ADN, qui 
est ce que j'appelle les pictogrammes 
d'ADN. 

Ces pictogrammes sont des procé- 
dures externes qui contrairement aux 
procédures externes classiques, qui 
existent aussi dans ADN, sont des 
procédures qui se greffent au 
programme principal, en différent 
endroits, comme des prises multi- 
broches. Un pictogramme c'est une 
zone que vous définissez sur votre 
document, et cette zone qui est une 
image, est dépendante de données dans 
les fiches. C'est en quelque sorte une 
zone image calculée. Cette zone est 
définie en modélisation. Il faut dire à 
ce stade en quoi elle dépend d'autres 
zones, ce qui se fait sans 
programmation, par des clic souris. À 
partir de là la zone va prendre l'aspect 
défini par le pictogramme, par les 
valeurs des champs dont elle dépend. 
Parallèlement, selon le pictogramme, 
elle peut renvoyer des données dans 
d'autres champs, réagir à des clic. 


En fait un pictogramme est un 
véritable programme indépendant du 
programme principal, qui peut se 
mettre n'importe où, dans n'importe 
quel fichier ou document, avec 
n'importe quel type de liaisons. 

Par ce biais les premiers picto- 
grammes qui existent et qui sont 
diffusés dans ADN, sont des 
pictogrammes graphiques, qui permet- 
tent des créer des graphiques couleurs à 
partir de données numériques. La 
programmation, qui est donc une 
programmation objet, se fait par un 
langage qui comporte environ 150 
instructions de base. Par le biais 
d'options, on peut estimer à 500 le 
nombre de fonctionnalités program- 
mables. Ce langage part de mots 
relativement transparents, avec une 
syntaxe assistée par l'éditeur, le tout 
pouvant être entré par la souris. Cette 
programmation permet donc de gérer 
quasiment tout depuis l'interface 
jusqu'aux entrées/sorties. 

On peut aussi ajouter des procédures 
externes pour ses propres besoins. Le 
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dernier aspect important d'ADN est la 
façon dont est traitée la documen- 
tation. Il y a tout d'abord l'aide 
intégrée, qui va sensiblement plus 
loin que ce qui se fait dans les autres 
produits. Il y a des fichiers ADN, qui 
permettent par un clic de souris 
d'avoir un écran d'information qui 
apparaît sur n'importe quel partie à 
renseigner, depuis les articles de 
menus jusqu'aux termes de langage. 
Cet écran, peut faire plusieurs pages. 
Donc une aide très complète. D'autre 
part il y a des fichiers de leçons, faits 
avec ADN, qui sont de véritables 
cours progressifs. Troisième système 
d'aide : les exemples de programmes 
(500) qui permettent par un simple 
copier/coller d'aller plus loin dans sa 
programmation. Ce système de 
documentation est intéressant pour 
ceux qui développent des applications, 
puisqu'il est possible de créer son 
propre système d'aide et ses propres 
leçons sur ses applications. Toute 
application qui sera fournie, pourra 
être documentée sous cette forme. De 
plus la documentation devient faci- 
lement évolutive. 

P.:Le produit lui-même, vous 
continuez à l'améliorer ? 


C. C.: Oui c'est très important. 
Dans les abonnements supports 
techniques, nous prévoyons deux 
remises à jour par an. Ces remises à 
jour viennent de plusieurs sources. Il 
y a d'abord une source de fonds : ADN 
est un choix d'une certaine 
informatique. On peut aller très loin 
avec, mais il y a encore des progrès à 
faire. Moi j'ai envie d'ajouter plein de 
choses. Et puis il y a les réactions des 
utilisateurs. ADN est un produit qui 
mâche la programmation, et du même 
coup, il propose des instructions qui 
sont souvent des macros, et si un uti- 
lisateur trouve qu'il manque des 
choses, nous les notons, et nous les 
ajoutons. En général, cela ne pose pas 
de problèmes. Le produit évolue aussi 
à cause du Mac, il faut rester à la 
pointe du progrès, donc cela fait 
beaucoup de causes d'évolutions. 





Il y a aussi une diversification des 
versions d'ADN, suivant les besoins. 
Tout le monde ne gère pas d'énormes 
fichiers, ou des communications avec 
des sites centraux, il y aura donc des 
versions spécialisées. C'est tout un 
ensemble qui dépendra de l'intérêt qui 
sera porté à ADN. Mais aujourd'hui je 
suis assez rassuré sur Ce point. 


C. Colin a délibérément adopté une 
démarche que l’on ne peut que saluer. 
Il s’en remet totalement aux 
utilisateurs, pour promouvoir son 
programme. Il nous fait confiance. 
Dans le microcosme informatique 
français où subsiste la paranoïa du 
piratage, cette attitude est remarquable. 
D'autre part il faut bien voir qu’ADN, 
est un vrai gros programme générateur 
d’applications, comme on en voit plus 
souvent à 6000,00 F qu’à 300,00 F. 
Le programme en lui même est noté 
cinq Pom’s sans réserves. Fichiers 
liés, documents personnalisés, recher- 
ches multi-critères, états de tous 
types, tout y est avec une interface 
plus que correcte. De la petite factu- 
ration, aux connexions gros systèmes 
en passant par les gestions de 
prospects et tout ce qui fait la vie 
d’une entreprise, ADN permet de tout 
gérer. Même si vous vous contentez 
de gérer vos cassettes vidéo, à ce prix 
c’est plus qu’une aubaine. La qualité 
de son interface, ne se fait pas au 
détriment de la puissance. 

S’il fallait à tout prix étiqueter ADN, 
on pourrait le positionner entre un 
SGBD et HyperCard. SGBD pour ce 
qui est de la gestion proprement dite 
des données, à savoir une vraie gestion 
de base avec index, états de sortie 
paramétrables, et HyperCard, pour sa 
programmation objet. 

Vous qui hésitiez à acheter un 
gestionnaire de bases de données, 
devant la multiplicité de possibilités, 
et surtout devant les prix demandés, 
ADN doit enlever votre décision. 
Simplement jouez le jeu, il le faut, 
c’est la règle. Il est certain que si 
l’expérience se révèle positive, elle ne 
pourra que faire des émules. La vision 
qu’a Claude Colin, de l’informatique 
sur Mac, rejoint certainement celle de 
Bill Atkinson, et finalement n’est pas 
grâce à des ‘allumés’ comme eux que 
le Mac est ce qu’il est ? 


Les autres news... 


Je vous ai annoncé il y deux ou trois 
numéros, l’annonce de SuperCard, 
en souhaitant que ce produit ne joue 
pas les Wingz. Silicon Beach 
Software a tenu ses promesses, et 
c’est très gentiment qu'il y a deux 
semaines, les gens de MacSell m'ont 
prêté le produit pour vous en parler. 
Bon, pour ceux qui ne le sauraient pas 
encore, SuperCard est un programme 
qui se voudrait le successeur 
d’'HyperCard. Même philosophie, 
même type de langage, et relecture des 
piles HyperCard, pour en faire des 
documents SuperCard. Sur le plan des 
améliorations par rapport à son 
auguste initiateur, SuperCard apporte 
une énorme amélioration, pour ce qui 
est des fenêtres. Désormais les piles 
peuvent utiliser des vraies fenêtres, 
redimensionnables, et il est même 
possible de créer des fenêtres du type 
palette. 

La gestion des objets y est aussi plus 
développée puisque même un bout de 
dessin peut devenir un objet, 
SuperCard permettant de travailler à la 
MacDraw. Désormais tout et n’im- 
porte quoi peut devenir un objet et 
donc être géré par des scripts associés. 
Pour finir sur le plan des différences 
fondamentales, SuperCard gère la 
couleur, et permet de créer des 
applications autonomes, double cli- 
cables et dont on peut personnaliser 
l'icône. 

D’autres améliorations ont été appor- 
tées dans l’ergonomie de la création 
d’une pile, en particulier l’éditeur de 
scripts permet l’incorporation des 
mots-clefs sans frappe, par sélection 
dans des menus pop-up. 

Tout serait-il parfait ? Pour ma part je 
pense que si SuperCard apporte une 
réelle amélioration par rapport à 
HyperCard, c’est au prix d’une 
manipulation beaucoup plus lourde. Il 
m'a fallu avec HyperCard un petit 
quart d’heure pour savoir créer des 
cartes simples avec champs et 
boutons. Deux heures supplémentaires 
m'ont suffit pour créer des scripts, 
sans prétention, mais qui fonction- 
naient. Avec SuperCard, la lourdeur de 
mise en œuvre ne permet pas d’aller 
aussi vite, et quand on passe de l’un à 
l’autre quasiment tout est à 
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réapprendre. 

Tout d’abord, le programme lui même 
est composé de deux sous- 
programmes, l’un pour fabriquer la 
base, dénommé projet dans SuperCard, 
l’autre pour faire tourner le projet. La 
puissance a engendré la lourdeur, ce 
qui est un peu en contradiction avec la 
philosophie du Mac. D'autre part la 
documentation fournie est dans le 





Macintosh SE SuperDrive 


prochainement, car il est difficile de 
résumer en quelques lignes toutes les 
améliorations que Laurent Ribardière y 
a apporté. Sachez simplement que de 
tortue, 4D v4 est devenu formule 1, 
et d’éléphant, il est devenu gazelle. Je 
veux dire que ce programme est 
désormais rapide et d’une facilité d’uti- 
lisation aérienne. Mais je n’en dit pas 
plus pour cette fois. 





Les Macintosh SE dotés de deux lecteurs de dis-. 
quettes comme ceux équipés de disques durs 20 ou 
40Mo sont maintenant livrés par Apple équipés en | 


ProDOS. 


Le FDHD (Floppy Disk High Density) est un lecteur 
capable de stocker 1,4 Mo sur les disquettes 3,5" au 
lieu de 800Ko avec les anciens lecteurs. 

Les disquettes Mac 400 et 800Ko restent bien en- 
tendu utilisables. Apple File Exchange sait utiliser le 
FDHD pour lire les disquettes MS-DOS, OS/2 et 


standard des nouveaux FDHD SuperDrive. Et ce | 
sans changement de prix. 





Fidèle à sa politique, Apple propose aux 
possesseurs de Mac SE un kit de mise à niveau. 


A 





genre léger. Une refonte du manuel 
serait en préparation devant le 
récriminations des utilisateurs outre- 
Atlantique. HyperCard, comporte 
d’emblée un système de documen- 
tation intégré qui est loin d’être égalé 
dans SuperCard. HyperCard possède 
une facilité d’utilisation que beaucoup 
peuvent lui envier, et il sera difficile, 
ne serait-ce par le mode de diffusion, à 
SuperCard de devenir un standard. 


Le nouveau 4D 
est arrivé. 


Avec seulement (!) six mois de retard, 
le nouveau 4D est arrivé. Un seul mot 
pour le qualifier : époustouflant. Je lui 
consacrerais un plein article très 
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Et dernière minute : une nouvelle 
version pour FoxBase : la version 
2.0. 


Rappelons que FoxBase est un SGBD 
qui a cet avantage de pouvoir récupérer 
fichiers et surtout programmes DBase 
III sur PC. Qui a encore dit beurk s’il 
vous plaît, j'en ai vu un au fond de la 
classe. Non Monsieur, nous ne 
sommes plus sectaires sur Mac, c’est 
terminé. Bref, en résumé voici les 
améliorations apportées par rapport à 
la version 1.1. Un interfaçage 
HyperCard, par le biais de XCMD et 
XCFN, rapidité accrue. 

Soit dit en passant, FoxBase n’était 
déjà pas du genre lent. Si c’est vrai 
que cette version est trois fois plus 
rapide, bonjour les excès de vitesse. 





De plus un éditeur d’état à la hauteur 
du Mac, à savoir Wisiwig et tout, et 
un générateur d’étiquettes, plus per- 
formant. Pour clore un tas de 
nouvelles fonctions. Chiche on va 
tâÂcher de le mettre en face du nouveau 
4D, du nouvel Omnis, d’ADN, et on 
va voir après torture ce qui va en 
sortir. Je vous tiens au courant. J’ai 
bien ma petite idée, mais ce n’est pour 
l'instant qu’une intuition. En 
attendant, FoxBase est distribué par 
AB Soft. 


Voilà pour les grosses nouveautés de 
ce numéro. 

Mais continuons la rubrique ‘les 
petites choses qui simplifient la vie’. 


Le spooler 
d’imprimante 
SuperLaserSpool 


Un spooler d’impression est un 
programme qui permet d’accélérer 
considérablement les tâches d’im- 
pression. Pour mémoire, il faut savoir 
que le Macintosh imprime, dès que 
l’on fait appel à une impression non 
brouillon, en mode image. C’est-à-dire 
que l’imprimante travaille en mode 
graphique au lieu d’utiliser les 
caractères résidants. Ce qui permet 
d’imprimer indifféremment textes et 
dessins sans changer de configuration. 
Cependant, ce type d’impression est 
très long. Et durant tout le processus, 
le Mac est immobilisé. Les 
programmeurs ont repris l’idée du 
temps partagé qui existe Sur gros 
systèmes depuis longtemps. 


Au lieu d’envoyer le fichier 
directement sur l’imprimante, on crée 
un fichier temporaire sur le disque, qui 
est une image de ce fichier. Dès lors 
quand le Mac ne fait rien (contrai- 
rement aux apparences c’est très 
courant, même quand vous ramez 
comme un fou dessus), il occupe ce 
temps libre à imprimer. C’est ce 
qu’on appelle une tâche de fond. 

SuperLaserSpool permet donc 
d'imprimer pendant que vous êtes 
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occupés à autre chose. Ce programme 
est constitué d’un INIT et d’un 
accessoire de bureau. L’INIT est le 
spooler proprement dit, tandis que le 
DA se comporte comme un utilitaire 
associé. En effet, le fait que le spooler 
rende la main très rapidement, permet 
d'imprimer successivement plusieurs 
documents qui seront mis dans un 
dossier sur disque, réservé à cet effet. 
Dès lors ils constituent une file 
d'impression, dont il est possible de 
modifier l’ordre grâce au DA. Ce 
même DA permet aussi de désactiver 
ou de suspendre une impression. Si 
par malheur, une bombe survenait 
pendant une impression, le travail 
n’est pas perdu, puisque qu’au re- 
démarrage, l’INIT est capable de savoir 
si une impression a été interrompue, 
et donc de reprendre la tâche. 


Distribué par Symbiotic. 
Les plus de ce mois. 


Je vous ai trouvé encore quelques 
gâteries pour votre Macintosh. 


Tout d’abord deux nouvelles versions. 
L’une de Superclock : le must en 
matière d’horloge en barre de menus. 
Pour mémoire, cet utilitaire, sous 
forme d’un CDEV, outre le fait de 
donner l’heure en permanence, donne 
aussi la date, et aussi fait chrono- 
mètre. Cette nouvelle version caril- 
lonne en plus toutes les heures, le son 
que vous voulez, et éventuellement le 
nombre d’heures concernées. En share- 
ware. 


Autre nouvelle version : Boomerang 
dans sa version 2.0b7. S’il ne restait 
qu’un utilitaire, ce serait celui là ! Ce 
CDEV permet d’améliorer les 
dialogues d'ouverture et de sauvegarde 
de fichiers, de manière tout sim- 
plement phénoménale. 


Désormais il autorise la création d’un 
nouveau dossier sans repasser par le 
finder, et possède une fonction 
“rebond”, qui permet de retrouver 
instantanément le dernier fichier et/ou 
dossier utilisé. De plus une option de 





avantageusement celle du système en 
accessoire de bureau. En freeware. 


Pour les férus d’amélioration d’inter- 
face, une petite INIT, qui permet de 
modifier l’aspect des boutons 
standards, boutons radios et boîtes à 
cocher. Purement esthétique. 

Et pour les stackeurs invétérés, une 
pile de XCMD's, qui vous permettra 
de créer des dialogues personnalisés 
sous toutes formes possibles et 
imaginables regroupées en sept ca- 
tégories. Tout est permis, du dialogue 
simple avec texte à entrer et boutons, 
aux dialogues complexes tels que les 
dialogues d’aide en ligne avec images 
incorporées et renvoi sur des mots 
clefs. En shareware. 


Nous ne le répéterons jamais assez, le 
shareware est un programme en 
diffusion libre, mais d’utilisation 
payante. Alors payez vos shareware, 
cela ne peut qu’encourager les bonnes 
volontés. 


J'ai reçu récemment une question 
émanant d’un de nos fidèle lecteurs, 
Mr Bensimon : en substance la 
question était quel langage choisir 
pour développer des XCFN et autres 
XCMD pour HyperCard, assembleur, 
Turbo-Pascal, C ? 


Le choix d’un langage de dévelop- 
pement dépend essentiellement du 
temps que l’on veut consacrer à 
l’apprentissage dudit langage. Je ne 
pense pas que tel ou tel langage soit 
plus valable l’un que l’autre, mais 
simplement doit répondre à un besoin 
donné, en fonction d’un résultat désiré. 
Ceci dit il est évident que si connais- 
sant parfaitement un assembleur, en 
l’occurrence le 6502, vous aurez une 
tendance naturelle à pouvoir travailler 
sur le 68000 dans le texte si j'ose dire. 
Mais bon courage tout de même car le 
68000 est un très gros morceau. 
L'outil de développement idéal pour 
l’assembleur est le MPW (ou 
Macintosh Programmer Workshop) 
qui possède un des meilleurs 
assembleurs tous ordinateurs confon- 
dus, avec des outils de debugging hors 
du commun. MPW possède toute les 
interfaces nécessaires pour HyperCard. 


Le Turbo-Pascal possède lui un 





recherche de fichiers remplace avantage de taille sur les autres Pascal, 


c’est sa simplicité de mise en œuvre. 
Certes il n’est pas l’outil idéal pour 
écrire un programme comme 4D, mais 
il suffit largement pour écrire très 
rapidement des XCFN et autres 
XCMD. Et surtout présente le 
meilleur rapport qualité/prix, pour ce 
qui est du coût de développement. 
Pour ce qui est du C, je vais vous 
proposer une solution plus originale 
et surtout plus économe de temps, en 
évitant d’apprendre ce langage. Il 
s’agit de VIP. Il est possible d'écrire 
une fonction externe pour HC et 
d’ailleurs pour n’importe quel pro- 
gramme acceptant des externals en C, 
sans connaître le moindre mot de C ! 
Pour ce faire il suffit d’écrire je dirais 
dessiner en VIP le langage développé 
par Mainstay. VIP permet grâce à 
des translateurs de sortir un source 
compilable en LightSpeed C. 
Résultat, des temps d’apprentissage et 
de développement divisé par 10 à 50. 
Contrepartie : coût global plus élevé, 
puisque nécessite VIP + translateur + 
LightSpeed C. 


À la rentrée ! 


Les adresses 


Initiative ADN 

68 rue Anatole France 
92309 Levallois Perret 
es: (04757 3727 


MacSell 

193 rue Jean Lolive 
93500 Pantin 

æ : (1) 48 43 60 33 
Symbiotic 

4 rue Robert Shumann 
94220 Charenton 

mæ ; (1) 43 78 99 99 
ACI 

5 rue Beaujon 

75008 Paris 

2: (1) 42:27 3725 
AB Soft 

27 rue de Montévidéo 
75116 Paris 

æ : (1) 45 04 42 03 
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le // for ever 


Nouvelles du front 


# Le trust Beagle ? 


Je l’ai déjà dit souvent : la fidélité de ce 
brave vieux chien mérite récompense. 
Beagle Bros et l’Apple //, c'est le 
chasseur et son chien. Pour que la fidélité 
paye, il faut du temps. Mais tout indique 
que, pour Beagle Bros, ce temps est 
arrivé. 

Depuis le rachat de StyleWare par Claris 
pour développer AppleWorks GS, les 
autres produits Apple // de Styleware 
(Multiscribe, etc.) étaient “dans les 
choux”. Beagle les a rachetés à Claris, et 
va en assurer la diffusion et le support. 
Vous connaissez sans doute aussi 
Pinpoint Publishing. Pinpoint avait 
démarré avec ses accessoires pour 
AppleWorks, et avait continué avec de 
très bons produits. Je m’étonnais que la 
concurrence des TimeOut n’aie pas l’air de 
faire bouger Pinpoint : c’est qu'ils avaient 
le regard ailleurs. Développant un 
nouveau produit de PAO (Pages), 
Pinpoint en prévoyait une version 
Apple // en même temps qu'une version 
IBM et une version Mac. 

Mais le monde IBM, c’est celui du “Big 
Business”, des gros poissons et... des 
gros requins. Un petit jeune avec de bons 
produits, c’est intéressant pour les gros. 
On lui propose donc le gros coup, 
l'affaire tentante : ou on gagne gros, ou 
on perd tout. Pinpoint a joué. Et il a 
perdu. Exit Pinpoint. 

Là encore, c'est notre bon vieux chien qui 
reprend le flambeau : Point to Point, 
l’excellent logiciel de communication de 
Gary Little, est maintenant un produit 
Beagle. 


# L'Europe se rebiffe 


Après la volée de bois vert administrée à 
Apple par A2 Central pour son absence de 
support de l'Apple // dans le monde 
non-US, le numéro d'août publie un bon 
nombre de lettres, d'Europe essentiel- 
lement, sur le thème “non, non, nous 
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sommes toujours là”. Démarche méritoire 
de gens qui, au moins, montrent qu'ils 
connaissent A2 Central. Sauf pour le 
premier, vous trouverez leur adresse en fin 
de cet article. Mon conseil : écrivez-leur 
pour leur dire “bravo” et leur demander 
leur catalogue. J'ai noté : 
@ le coordonnateur pour les produits 
Apple // d'Apple Computer France, 
Émile Schwarz, rappelle que son équipe 
TEAM avait entrepris la francisation du 
GS/OS 4.0 dès novembre 1988. Aussitôt 
que la version 5.0 sera prête, il compte 
s’y attaquer aussi. «Nous faisons tout 
notre possible pour retrouver la première 
place dans le cœur de nos clients, même 
si ce n'est pas facile». 
Bravo, Émile, et bon courage. Nous 
avons déjà montré, en épuisant en huit 
jours le stock du système 4.0, que vos 
efforts étaient appréciés. Pour le 5.0, 
nous attendons le “top” : pensez à prévoir 
large ! 
@ une boutique allemande qui vend par 
correspondance (catalogue en alle- 
mand) : Pandasoft. 
@ une boutique suisse qui vend par 
correspondance : un concessionnaire 
Apple qui se spécialise sur l'Apple //! II 
s’agit de Musicomp. Le catalogue est en 
allemand, mais la boutique est bilingue. 
® une boutique anglaise enfin, au 
catalogue très fourni MGA 
Microsystems. 


# Les mieux lotis : suite 


Je vous rappelle qu'aux USA, le GS 
couleur est nettement plus cher qu’un 
Mac Plus, encore plus cher dans la 
configuration un méga (et que je trouve ça 
normal, le GS valant effectivement plus). 
Or, j'ai regardé fin juillet les prix des 
configurations Mac Plus (15 000 F HT) 
et GS couleur un méga (9 900 F HT) sur 
3614 Apple : au prix d'un Mac Plus, en 
France, on a un GS avec deux mégas et la 
Transwarp ! 

Apparemment, la configuration GS mono- 
chrome n'est plus au catalogue : ça se 
comprend, la force du GS étant dans la 
couleur. D'ailleurs le prix du moniteur 
couleurs a baissé aussi (2 900 F HT). 
Mais ne jetez pas pour autant vos 


moniteurs monochromes ce sont 
d'excellents moniteurs, particulièrement 
sur les niveaux de gris. 


# La Capitale 


Il était bien temps que cesse ce provincia- 
lisme, et que chacun comprenne enfin où 
est la capitale, dans ce pays : cédant à 
l'insistance de nombre de ses clients (dont 
votre serviteur), Bréjoux envisage 
l'ouverture d’un magasin là où il faut, à 
Paris. Ce n’est pas encore tout à fait 
officiel, pas encore tout à fait décidé, mais 
ça va ouvrir vers octobre. Une bonne 
nouvelle pour l'Apple //. 


# Leurs dernières 
cartouches 


J'ai bien l'impression que c’est Monsieur 
Fournier, du Buyer’s Guide, qui a raison. 
Il écrit dans le numéro d'été : «Après une 
période de latence, il arrive au GS ce qui 
s'est passé en son temps pour l'Apple //. 
Il est en train de devenir le petit Mickey 
qui n'a pas peur des gros, une machine à 
créer, et ce grâce aux développements 
annexes, tant en logiciel qu’en matériel». 
Cette perspective inquiète manifestement 
certains : après l'échec des différentes 
campagnes de “rumeurs”, on tire les 
dernières cartouches. 

Des quidams seraient allés récemment 
visiter des développeurs californiens, se 
faisant passer pour des employés d'Apple, 
pour leur dire de ne plus développer pour 
l'Apple //. Bien sûr, le FBI est sur 
l'affaire. Mais l’atout le plus sûr, c’est 
notre détermination collective. On prévoit 
la vente du cinq millionième Apple // 
pour 1990... 


Toujours Plus 


# Coprocesseurs 


Serait-ce l'influence de l’IBM ? Après la 
carte coprocesseur arithmétique 68881 
(voir Pom’s 38 page 60), c'est Applied 
Engineering qui nous propose sa carte 
FastMaths, qui fait des calculs à la fois 
plus rapides et plus exacts (voir Bréjoux 
pour la disponibilité en France). 

Sur l'utilité et les limites des cartes 
coprocesseurs arithmétiques, lisez l’article 
d’Alain Raynaud dans Pom’s 41 page 45 

















(eh oui, c’est dans la partie Mac : il faut 
tout lire dans Pom's). Entre autres, vous 
y apprendrez que, sauf si vous faites vos 
propres programmes maison, une carte 
coprocesseur n'est utile que si les 
applications dont vous vous servez ont 
prévu son utilisation : et encore, pas 
n'importe comment. 

Ces deux cartes ont une interface avec 
l'Applesoft (en ce qui concerne la 
Floating Point Engine, il a été écrit 
par Glen Bredon). Mais ça ne suffit pas : 
la carte Floating Point Engine ayant déjà 
ses patches pour AppleWorks, on attend 
donc d'AE, qui est après tout le père de 
l'industrie du patch à AppleWorks, qu'il 
fournisse ses patches au tableur 
d’AppleWorks. 


Il y a enfin une chose que j'ignore, posez 
la question à Bréjoux à son retour de 
vacances : la FastMath intercepte-t-elle ou 
non, comme c'est le cas avec la FPE, les 
appels à SANE sur GS? En tout cas, le 
GS est prévu pour ça, et il faut qu'elle le 


fasse. 


# Multimédia 
Interactifs 


Avant de parler d'HyperStudio, il faut 
dire un mot de la notion même 
d'Hypermédia, ou de “Multimédias inte- 
ractifs”, comme on les appelle main- 
tenant, pour comprendre ce qu'est cet 
“Hypercard couleurs” qu'est HyperStudio. 
Chacun connaît la question la plus 
courante à propos d'Hypercard : à quoi ça 
sert ? 

L'idée de départ, c’est tout simplement 
celle d’un nouveau mode de publication : 
si vous avez de l'information à 
transmettre, vous pouvez écrire un livre 
ou un article, enregistrer un disque, une 
cassette audio ou vidéo, faire une 
conférence, etc. Désormais, vous pouvez 
aussi faire une pile. 

Ce qui caractérise ce nouveau mode de 
transmission de l'information, c’est d’une 
part qu’il est “multimédia” : il intègre en 
même temps sons, images, animations et 
textes. Hypercard et HyperStudio sont 
donc entre autres utilisés pour piloter des 
lecteurs de vidéodisques ou de CD Rom, 
des magnétoscopes, etc. 

D'autre part, l’hypermédia est interactif 
parce que le récepteur de l'information 
m'est pas passif, comme devant une 
émession de télé, puisqu'il “navigue” à sa 


guise dans l'information proposée. Par 
exemple, au lieu d’avoir affaire à 
l’ensemble d’un arbre généalogique, on 
clique sur l’image du tonton Piard : on 
entend alors sa voix, et un écran s'affiche 
avec des informations sur lui. On choisit 
alors entre “en savoir plus sur le tonton 
Piard” et “ascendants du tonton Piard”. 
Etc. 

Aussi, parce que la structure même de 
l'information proposée dans une pile 
hypermédia n’est pas linéaire, séquen- 
tielle, comme dans un livre ou une 
émission de télé, mais “en arbre” : chaque 
carte se ramifie en sous-cartes plus 
détaillées, permettant d'approfondir un 
sujet et de se limiter à celui qui nous 
intéresse. 

Enfin, une pile hypermédia ne se 
“programme” pas : elle s'écrit, un peu 
comme on écrit une lettre. On n’a pas à 
connaître de “langage” informatique. 
L'application hypermédia est elle-même 
un langage, guère différent de l'interface 
utilisateur des applications habituelles. 
Bon, voilà pour la théorie. Pour en savoir 
plus, lisez la partie Mac de Pom's. Je 
reconnais qu’il y a quelques raisons 
d’avoir des réticences : d’une part, nous 
avons encore une fois eu droit à la 
chansonnette à la Mac Luhan sur le 
“dépassement” de l'écriture et des livres, 
cette fois-ci par les multimédias inte- 
ractifs qui leur seraient bien supérieurs. 


Or, lecteurs, je vous avertis : l’hyper- 
média ne va pas faire diminuer votre 
bibliothèque, il va encore l’augmenter. 

La documentation d'Hyperstudio est un 
livre à lire. Et il faudra y rajouter la 
bibliographie sur Hypercard que vous avez 
lue dans Pom’s 39. Ce n’est pas demain 
la veille que Pom'’s sera présenté sous 
forme de pile au lieu d’une revue. 


En plus, les piles étant faciles à réaliser, 
on a vu circuler, du côté Mac, des piles de 
piles dont beaucoup n'avaient guère 
d'intérêt. 

Certes, il est faux de dire que l’hyper- 
média est le mode de communication 
d'aujourd'hui. Rien ne remplace un 
bouquin bien fait avec un bon index. 
Mais il est vrai de dire que c’est UN mode 
de communication nouveau, qui est en 
train de trouver sa place dans la palette des 
médias. 

Par exemple, l’hypermédia est un outil 
exceptionnel pour l’enseignement : c’est 
la version contemporaine de ce qu’on 
appelait auparavant un “langage-auteur”. 
Attendez-vous aussi à trouver de plus en 
plus de guides d'expositions, de 
renseignements touristiques, et plein 
d’autres choses sous forme de piles. 

Bref, l’hypermédia est une des choses 
qu'un utilisateur d'ordinateur Apple doit 
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savoir faire. En plus, il est vrai qu’à la 
différence de la programmation ancienne 
mode, c'est facile. Et cela fait des écrans 
attirants, séducteurs, beaucoup moins 
rébarbatifs que ce que nous faisions 
auparavant. C'est facile, et c’est joli : il 
faut s'y mettre. 


# HyperStudio 


S'y mettre, cela veut dire, pour les 
utilisateurs de GS, s'offrir HyperStudio, 
de Roger Wagner, puisqu'on ne nous a 
pas offert d'Hypercard avec notre machine. 
Ce n'est pas si grave : HyperStudio, à 
mon avis, est une bonne affaire. Voici 
pourquoi. 

La première chose que vous trouvez dans 
la boîte, c'est un micro, un haut-parleur 
amplifié avec piles, et une carte de 
numérisation du son. Tout le nécessaire 
pour le son, en mono. La carte ne prend 
aucun slot, s’alimente sur la prise 
ventilateur du GS, toute autre carte stéréo 
ou de numérisation du son est compatible 
avec elle. 

Si vous êtes musicien, ce matériel ne 
vous suffira pas : songez à la Sonic 
Blaster d'AE et aux autres cartes. Mais 
si vous êtes un GSiste “ordinaire”, qui 
veut simplement entendre convena- 
blement les sons du GS et en mettre dans 
ses programmes, ce matériel est très intel- 
ligemment conçu et fonctionne très bien : 
par exemple le haut-parleur a un 
“économiseur de piles” automatique. 

Un logiciel de numérisation des sons est 
inclus, avec toutes les possibilités de 
traitement. Ce logiciel est indépendant 
d'HyperStudio, peut gérer tous les sons 
des disquettes DPA et autres, convertit les 
sons de la Sonic Blaster, etc. 

En plus, à la différence du soft de la Sonic 
Blaster, quand on a travaillé un son, il 
accepte de le sauver sur disque même en 
l'absence de la carte. 


Donc, avec HyperStudio, vous avez déjà 
un mini-studio pour le son. Vous avez en 
plus les outils graphiques nécessaires 
pour réaliser vos écrans, un très bon 
“Paint” en 640Ko. Tout ça, ce sont 
seulement les “bonus” : en plus, vous 
avez bien sûr HyperStudio pour faire vos 
piles. 

Je ne vous décrirai pas plus loin 
HyperStudio : ça marche, ça fait des piles, 
c'est beau et c'est facile. Standard 
ProDOS, faut-il le préciser ? 

Précisons cependant une chose : pour 
numériser les sons, la première carte à 
acheter est. une bonne extension 
mémoire. Pour faire fonctionner 
correctement HyperStudio, il faut. de la 
mémoire. Bref, 1,2 Mégas, c’est le 
minimum. 
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Précisons enfin qu’au moment où j'écris 
ces lignes, la version d’'HyperStudio 
diffusée par Wagner est fonctionnelle, 
mais pas entièrement terminée : certaines 
fonctions ne sont pas encore 
implémentées, les XCMD (kèkcèkça ? 
voir la partie Mac de Pom's, bien sûr) ont 
une définition provisoire, le langage pour 
les scripts est en attente. Roger Wagner le 
sait et le proclame, mais il s'engage à 
vous envoyer automatiquement les mises 
à jour promises pour cet été. Renvoyez 
immédiatement votre carte d’enregis- 
trement. 

HyperStudio est disponible chez ToolBox 
et Bréjoux, et peut-être ailleurs. Je n'ai 
pas vu celle de Bréjoux, mais j'ai vu celle 
de ToolBox : la documentation française 
est aussi bonne que les traductions 
Pom's, c’est tout dire. 


Excusez-moi, mais j'insiste : de même 
que si vous n'avez pas AppleWorks et 
UltraMacros, vous n'avez pas un 
Apple //, de même que si vous n'avez pas 
Hypercard, vous n'avez pas de Mac, de 
même que si vous n'avez pas Lotus 
1-2-3, vous êtes un homme heureux, de la 
même façon, à partir de maintenant, si 
vous n'avez pas HyperStudio (et le 
Navigator de Marc Bavant), vous n'avez 
pas de GS. 


” Zip Chip 


Prenez ce qui va suivre avec de très 
longues pincettes, vu le record mondial de 
l'annonce anticipée que détient Zip 
Technology pour le Zip Chip. Zip 
Technology a annoncé pour la prochaine 
Apple Fest un Zip Chip huit bits à 8 
Mhz (avec un prix d'upgrade pour les 
actuels possesseurs de Zip Chip 4 Mhz) 
et un Zip Chip GS à 8 Mhz aussi. Bon, 
mais en matière de Zip Chip, il faut faire 
comme Saint-Thomas... Le Zip Chip 4 
Mhz, bien réel, est toujours en vente chez 
Pom's. 


Le mange-disques 


Le trust Beagle : 
suite 1 


Après Bréjoux, qui le sait et le diffuse 
depuis longtemps, Beagle vient enfin de 
se rendre compte qu’il avait, enfoui dans 
son fonds, le meilleur éditeur de 
programmes Applesoft : il s’agit de 
Program Writer, d'Alan Bird, un 
héritage de l’ex-Software Touch. Interface 
“à la AppleWorks”, il se loge en mémoire 
auxiliaire si besoin. Macros, et tout ce 


Pom’s n° 43 


qu'il faut (sauf “hold” et ““merge”, qu'il 
faut remplacer par des macros). Il est 
depuis belle lurette sur mon disque dur, et 
je m'en sers tous les jours. 


Le trust Beagle : 
suite 2 


Vous vous rappelez, je l'avais demandé : 
quelque chose comme le “CellLink” des 
Spreadtools, mais pour la base de données 
d’AppleWorks. Un moyen de travailler 
sur plusieurs fichiers ensemble, de façon à 
donner à AppleWorks les capacités rela- 
tionnelles qu'il n’a pas. 

Eh bien, ça y est : il s'appelle TimeOut 
ReportWriter, c'est un générateur de 
rapports relationnel. 

Il peut tirer ses informations de 11 
fichiers AppleWorks (base de données, 
tableur ou traitement de textes) ouverts en 
même temps. 250 catégories différentes, 
autant de totaux et sous-totaux qu'on 
veut. 

Avec ReportWriter (joint aux autres 
TimeOut, au moins UltraMacros et 
SpreadTools), AppleWorks devient un 
outil “pro” qui peut satisfaire les besoins 
de 90% des PME : facturation, gestion 
des stocks, tout est désormais possible 
avec une facilité et une aisance très 
supérieures à bien des applications dites 
“pro” que j'ai vues sur d’autres machines. 
Et la version française ? 
Ne vous inquiétez pas : 
désassemble pour vous. 


Daniel Lurot 


# Mieux que le trust 


J'ai gardé pour la fin le dernier produit 
Beagle, car j'avoue que celui-là m'a un 
peu déçu. Il s’agit du GS Font Editor, 
éditeur de polices GS/Superfonts de Mark 
Simonsen pour tout Apple // 128Ko. Il 
fonctionne, il fait parfaitement son 
travail, mais. 

D'une part, ma commande était partie. 
il y a un an et demi, et c’est maintenant 
qu'il arrive. 

Il y a eu un peu de vaporware chez 
Beagle. D'autre part, c’est un Universal 
Font Editor que j'avais commandé : je 
supposais donc qu’il ne marcherait pas 
que pour les polices GS, et qu’il me 
permettrait des conversions. 

Enfin, et surtout, il arrive trop tard : nous 
avons déjà mieux. Pour le GS, nous 
avons le Fontasm de Stéphan 
Hadinger, qui est une excellente 
application GS (voir les DPA de ce 
numéro de Pom'’s). Pour les versions 
128Ko, nous avons l'Édipol de Pom's 
39. Et pour un produit Beagle, on aurait 
pu attendre un TimeOut Font Editor : ce 














ne sera pas le GS Font Editor, mais le 
TimeOut Font Editor de... Daniel 
Lurot, que les Français auront avant les 
Américains (quelques privilégiés -suivez 
mon regard- l'ayant déjà). 

La seule originalité du GSFE Beagle, 
c'est de pouvoir faire des sœurs aux 
polices GS à l'échelle choisie, et pas 
seulement double comme font les autres. 
Le principe est agréable, mais de toute 
façon le résultat de ces polices générées 
mécaniquement est toujours à reprendre, 
en fait à refaire entièrement, à la main. 
Sans quoi, elles ont toujours des échelles 
et des épaisseurs affreuses. 

Bref, pour les éditeurs de polices, les 
Français sont meilleurs, et il y a une 
bonne raison à cela : avec nos accents, 
nous avons vraiment besoin d'un bon 
éditeur. 

Si Beagle ou d’autres veulent se rendre 
utiles en matière de polices GS, qu'ils 
nous fassent un utilitaire de conversion 
des polices Apple // polices 
Fontrix/Printrix, polices Print Shop, 
nous avons des tonnes de polices bit-map 
“normales” à convertir dans ces “rubans de 
bits” des polices GS, et ces polices Apple 
//, ne venant pas du Mac, sont en 1x1. Si 
Beagle creuse dans son propre fonds, il en 
trouvera beaucoup. Il trouvera aussi de 
magnifiques polices type “shapes” 
(polices “draw” et pas “paint”) dont nous 
aimerions une version GS. 

Oui, eh bien, même là, quelque chose me 
dit que les Français seront les premiers. 


# AppleWorks 3.0 


Imaginez que Claris s'adresse aux Beagle 
Bros, et leur demande d'apporter à 
AppleWorks toutes les améliorations dont 
ses utilisateurs ont jamais pu rêver. Et 
maintenant, ne rêvez plus, c’est chose 
faite ! Voici en quels termes A2-Central 
du mois de juillet 89 annonçait la venue 
au monde de la nouvelle version 3.0 
d'AppleWorks 8 bits. 

Mes agents “doubles-pommes”, qui 
étaient pourtant sur le coup, n’en sont pas 
revenus. Il y a vraiment de quoi se frotter 
les yeux. La nouvelle est officiellement 
confirmée par Claris, et sauf contretemps 
le produit (en version américaine, bien 
entendu) devrait être disponible en août. 
Tout d’abord, cet AppleWorks-là devrait 
sérieusement ralentir l’industrie du patch à 
AppleWorks : parce qu'il inclut la plupart 
des modifications nécessaires. 
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Par exemple, il reconnaît directement les 
cartes AE ou Checkmate, slot auxiliaire 
ou “slinky”, sans aucun patch. Comme 
les limites d'AppleWorks sont repoussées 
à 16000 lignes dans le traitement de 
textes, 16000 fiches dans la base de 
données, 9999 lignes dans le tableur, que 
le presse-papiers n’a pas d’autres limites 
que celles de la mémoire disponible, les 
patches Applied Engineering et autres 
deviennent inutiles. 


Comme il inclut le chargement direct 
sans presser espace ni demander l’heure, 
qu'on peut imprimer jusqu’à 255 
exemplaires, qu’il inclut des routines pour 
le chargement des fichiers (y compris le 
chargement des fichiers textes) bien 
supérieures à PathFinder, qu’il navigue 
dans les sous-catalogues sans problème, 
qu'il sait sauver un fichier dans son 
sous-catalogue de départ, qu’on a trois 
imprimantes “mon imprimante”, qu'on 
peut éditer les imprimantes pré-définies, 
qu’on a la possibilité de définir jusqu’à 
six codes spéciaux pour l'imprimante à 
introduire dans le texte, que Pomme-H 
envoie un Form Feed à la fin, PathFinder 
et SuperPrint sont inclus, et beaucoup de 
patches sont sans objet. 

Comme le presse-papiers convertit 
désormais automatiquement les données 
entre traitement de textes, tableur et base 
de données, qu’un correcteur meilleur que 
Quickspell est inclus, qu'on peut 
couper-coller des colonnes et des blocs du 
tableur, certains TimeOut sont inclus. 
Comme on a désormais des commandes 
pour introduire la date et l’heure (dans le 
format choisi), un Pomme-Delete qui 
détruit sous le curseur, des codes de 
contrôle supplémentaires pour les options 
d'impression, UltraMacros va gagner de la 
place pour autre chose. 


De plus, AppleWorks 3.0 fait sauter les 
limites les plus énervantes d’Apple- 
Works : j'ai déjà parlé des limites 
“quantitatives” qui sont repoussées, de la 
gestion de l'imprimante, qui passe enfin 
au niveau attendu (ouf !). Mais il y a 
aussi (enfin !), la justification à droite 
dans le traitement de textes, de vraies 
tabulations (et la reconnaissance des 
contrôle-I dans les fichiers textes chargés 
et engendrés par AppleWorks), des règles 
de tabulation comme dans AppleWorks- 
GS, avec tabulation sur le point décimal 
par exemple. Il y a enfin un scrolling 


horizontal dans la présentation multi- 
fiches de la base de données. 

Le Tableur a 26 nouvelles fonctions : 
cinq arithmétiques, neuf trigonomé- 
triques, six fonctions logiques dont un 
àISERROR, six fonctions financières. 


La Base de données a, comme le tableur, 
une commande “Titres” qui force la 
première colonne à rester sur l’écran dans 
le scrolling horizontal. La présentation 
multi-fiches peut être commandée par un 
format de rapport. On peut avoir jusqu’à 
20 formats de rapport (au lieu de 8), par 
fichier. On peut enfin faire des rapports 
multi-colonnes (jusqu’à 24 colonnes) 
pour imprimer des étiquettes. On peut 
faire une recherche sur une seule 
catégorie, trier avec un panier de critères 
combinés sur plusieurs catégories, etc. 
Bien entendu, tout cela demande de la 
mémoire : il fonctionne sur les machines 
de 128K0, mais c'est pitié : le bureau est 
réduit à 40Ko (mais qui a encore 128K0, 
au prix des Rams de nos jours ?). 

Tout cela demande aussi de l’espace 
disque : il faut déjà 4 faces de disques 
5,25" pour tout contenir, y compris le 
correcteur et son dictionnaire, et ça 
marchera avec deux 5,25”, sauf que ce sera 
la galère (mais qui n’a pas, aujourd’hui, 
lecteur 3,5” ou disque dur ?). 
Rappelez-vous, j'ai assez matraqué dans 
Pom's : si vous n'avez pas un méga de 
mémoire et un lecteur d'au moins 800Ko, 
vous avez une pièce de brocante, pas un 
Apple //. 

Bien entendu également, AppleWorks 3.0 
récupère les anciens fichiers AppleWorks, 
mais les nouveaux ne seront pas 
compatibles avec l’ancienne version, si du 
moins on utilise les nouvelles fonctions. 
Ah oui, et la version française ? 

Pom's (et le tandem Geystor-Lurot) 
auraient les moyens de faire aboutir une 
version française indépendante. Mais en 
l’état actuel, ce n’est pas à ce niveau que 
la décision doit se prendre. Un peu de 
patience, laissons faire les spécialistes. 
Ce genre de travail s’accommode mal du 
clairon sur les toits. 


# Copy II Plus 8.4 


Peu de changements dans la nouvelle 
version (8.4) de Copy II Plus, de Central 
Point Software. Quelques routines 
améliorées dans le bit-copieur 3,5”, des 
paramètres mis à jour. Si vous ne vous 
servez que du Filer (Utility), attendez la 
version 9.x pour demander une mise à 
jour compatible GS/OS. Si vous voulez 
une mise à jour pour le Copy IT Plus 8.3 
acheté à Pom'’s, demandez-la directement à 
Central Point. 





Sous le capot 





# Transwarp : 
DMA, IRQ anc Co 


La documentation française de la 
Transwarp GS n'étant pas très claire 
sur ce que fait exactement l'option 
“Appletalk/IRQ” de l'accessoire Trans- 
warp, Vous trouverez donc ci-dessous ce 
que j'en ai compris à la lecture de la 
documentation US. 

Le problème qu'a à affronter tout 
accélérateur, ce sont les routines où le 
temps d'exécution (timing) est critique, 
calculé par le programmeur en fonction 
d'un processeur non accéléré. Rien ne dit 
dans le programme que cette routine-là 
doit être ralentie, la carte ne peut donc pas 
le savoir. Et si elle ne ralentit pas, 
plantage et/ou dégâts sont garantis. 

La Transwarp s’en tire par une voie 
indirecte : la plupart des routines à temps 
d'exécution critique ne peuvent pas 
admettre les interruptions (l'accès au 
tableau de bord par exemple). 

Elles commencent donc par verrouiller les 
interruptions en entrée, pour les 
déverrouiller en fin de routine : c’est ainsi 
que vous ne pouvez pas avoir, heureu- 
sement, accès au tableau de bord pendant 
une écriture sur disque. 

Mais le verrouillage et le déverrouillage 
des interruptions sont détectables par hard 
(IRQ Disable). En conséquence, si vous 
avez choisi l'option “Appletalk/IRQ”, la 
Transwarp, supposant qu'il s'agit d’une 
routine à timing, cessera toute 
accélération tant que les interruptions ne 
seront pas déverrouillées. C’est donc une 
bonne mesure de sécurité. 

Le problème, cependant, c’est qu’un 
programme peut choisir de verrouiller les 
interruptions sans pour autant avoir de 
routines sensibles au temps d'exécution : 
soit par exemple que nous sommes déjà à 
l'intérieur d'une routine de gestion des 
interruptions, qui ne peut pas elle-même 
être interrompue, soit que le programmeur 
ait oublié de déverrouiller les inter- 
ruptions en sortie (voir par exemple 
Pom's 40 page 62 sur Locksmith), soit 
encore parce que le programmeur a 
délibérément choisi d’inhiber les 
interruptions, par pure perversité, sans 
autre raison que la volonté de bloquer 
l'utilisateur. C’est fréquemment le cas 
dans les jeux, même sur GS, où l’on n'a 
plus d'accès au tableau de bord. 

Dans ces cas, l'option “Appletalk/IRQ" 
de la Transwarp ne permet pas d'accélérer 
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les programmes concernés, ce qui peut 
être dommage pour certains jeux. 
Finalement, je conseillerai donc de garder 
cette option en permanence, mais de noter 
sur les disquettes des programmes 
concernés qu’il faut la désactiver avant de 
lancer le programme. 

En revanche, si votre joystick semble 
répondre mal dans certains jeux, c’est que 
les routines de lecture du joystick ont un 
“timing” qui, lui, supporte Îles 
interruptions (ce qui fait que la Transwarp 
ne le détecte pas), mais ne doit pas être 
accéléré : dans ce cas, il faut déconnecter 
l'accélération vous-même. 


Un mot aussi sur le DMA (Direct 
Memory Access) : tous les Apple // sont 
construits de telle façon qu’une carte mise 
dans un slot puisse “voler” la mémoire au 
microprocesseur de l’Apple //, sans que 
celui-ci s'en rende compte. C'est ce qui 
permet par exemple de transformer 
l'Apple // en ordinateur CPM-Z80 sans 
ajouter de mémoire, ou d'installer une 
carte coprocesseur. 

C'est cette possibilité qu'utilise la 
Transwarp pour transférer le contenu de la 
mémoire “lente” du GS dans la mémoire 
“rapide” du cache de la carte. Mais 
évidemment, tout le monde ne peut pas 
voler la mémoire en même temps. AE a 
donc été obligé d'essayer de rendre 
compatible au coup par coup la 
Transwarp et les autres cartes qui font du 
DMA. 


Il y est parvenu avec ses propres cartes (la 
carte Z80 AE par exemple), avec la carte 
de disque dur Corvus, mais la carte 
FingerPrint de GSI est pour le moment 
incompatible avec la Transwarp. 

J'ai déjà écrit (Pom'’s 38, page 59) que la 
carte FingerPrint, qui finalement ne fait 
guère que le travail d’un CDA, ne me 
semblait guère indispensable. Or, la carte 
Transwarp est munie d’un connecteur sur 
lequel on pourrait sans doute brancher un 
bouton NMI. Du côté de la Rom, il y a 
de la place sur la carte : la partie occupée 
dans la Rom de la carte par la magnifique 
démo graphique/son que vous pouvez 
lancer, si vous le voulez, au démarrage, 
reste inutilisée après les premiers jours. 
La Transwarp pourrait donc être un jour 
un instrument de débuggage très 
pratique… 

La carte MultiKache, d'Ohio Kache 
Systems, est, elle, compatible avec la 
Transwarp, mais. à condition de 
supprimer la fonction de cache de la 
MultiKache, ce qui fait qu’elle ne sert 
plus à grand-chose. Là aussi, j'ai écrit 
(Pom's 41, page 60) que cette carte ne me 
semblait guère plus indispensable que la 
Fingerprint : là encore, je préfère donc la 
Transwarp. 





Pom’s n° 43 


# GS 16 Mégas 


En plus, la Transwarp nous rappelle une 
chose importante. La limite pour la 
mémoire du GS n’est pas 8 Mégas, 
comme on le dit trop souvent, mais 16 : 
SFFFFFF, cela fait 16 Mégas. Ce qui est 
vrai, c’est que le slot auxiliaire du GS 
n'admet que 8 Mégas maximum. La carte 
mémoire du slot auxiliaire peut aller des 
bancs $02 à S80. 

Mais ce qui est intéressant, c’est d’une 
part bien sûr que le processeur, lui, peut 
adresser 16 Mégas. Pas seulement le 
processeur d'ailleurs, mais le GS 
lui-même, sa Rom et son système. 


Les bancs de mémoire non installés, y 
compris entre $81 et SDF, le Memory 
Manager ne les marque pas absents, mais 
occupés, pour que personne ne s’en serve. 


Mais il travaille sur 16 Mégas, et est tout 
prêt à les marquer libres s’ils sont là. 


Ce qui m'a mis la puce à l'oreille, c’est 
de chercher à quel endroit la Transwarp 
avait mis son accessoire. En Ram ? Non. 
Dans l’espace de Rom au-dessus de $F0 ? 
Non plus. Il est dans le banc $BC. Eh, 
mais le banc SBC, ça n'existe pas, le GS 
n’est pas câblé pour ! C’est au milieu du 
trou. 


Effectivement : le GS n’est pas câblé 
pour. Mais la Transwarp, si ! Oh, bien 
sûr, c’est de la Rom, pas de la Ram : 
mais le GS n’est pas câblé non plus pour 
avoir de la Rom en SBC. Et si je suis 
bien certain que si AE y a mis de la Rom, 
il pourra un jour y mettre de la Ram. Il y 
a un connecteur, sur la carte. 


y Pépins GS 


Il est utile d’avoir plusieurs GS (à défaut, 
il est utile d’avoir des amis avec GS) : si 
votre Transwarp GS ne marche pas, 
essayez-la sur un autre. Bien souvent, 
vous vous rendrez compte que c’est du GS 
que vient le problème. Je connais pour le 
moment trois cartes qui font un excellent 
test pour la carte-mère du GS : la 
Transwarp GS, la PC Transporter, et la 
carte du disque dur Mégacore. 

Si votre GS marche impeccablement sans 
la nouvelle carte, si la nouvelle carte 
marche impeccablement sur un autre GS, 
c'est que votre GS avait depuis le 
début des pépins dont, par hasard, vous 
ne vous étiez jamais rendu compte. Il est 
important de connaître le nom juridique de 
ce genre de pépin : on appelle cela un 
“vice caché”. Pourquoi est-ce important ? 
Parce que c'est l’un des cas où l’on n’a 
pas le droit de vous dire que la garantie est 
terminée. 





# GS Club 911 


Le club le plus nombreux des possesseurs 
de GS n'est pas le GS Club 94, où 
l'adhésion est très utile, mais volontaire 
(voir Pom's 41 page 59). C’est le GS 
Club 911, qui rassemble involontai- 
rement un bon nombre de possesseurs de 
GS, abonnés de fait à l’erreur 911 (voir 
Pom's 38 page 62). 

Avec trois GS sans erreur 911, je me 
sentais jusqu'ici injustement exclu, 
quelque peu jaloux, ne pouvant parler que 
par ouï-dire du message d’erreur favori des 
utilisateurs de GS. C'est un logiciel qui 
m'a enfin ouvert la porte du club : il 
s’agit de TEST DRIVE II. 


Pourquoi ? Eh bien, ce coquin, sans 
prévenir, modifie la Ram sauvegardée, et 
met le tableau de bord dans une 
configuration clavier où le délai d’auto- 
répétition des touches est au plus court 
possible, tandis que la vitesse de 
répétition est la plus rapide possible. 
Quand on sort de Test Drive II par Reset, 
on a un clavier qui garde la vitesse de la 
Ferrari, et qui fonce. jusqu’au plantage. 
Cela nous indique peut-être une solution. 
D'abord, cela révèle que l'erreur 911 est 
bien ce qu’elle prétend être, à savoir une 
erreur de synchronisation entre le 
microprocesseur du GS et le micro- 
processeur du clavier ADB : quand le 
clavier va au plus vite, le GS ne suit plus. 
Et cela donne peut-être un remède à tous 
ceux qui n’ont pas attendu Test Drive II 
pour être admis dans le club : si vous 
ralentissiez le clavier dans le tableau de 
bord ? Merci de nous faire savoir si ça 
marche. 


# La guerre des durs 


Amusante bagarre publicitaire, ces 
derniers temps, entre Applied Inge- 
nuity et Applied Engineering qui 
est en train de sortir son disque dur interne 
Vulcan, concurrent du disque dur interne 
Inner Drive d’AI, lequel se vend très 
bien depuis un bon moment. 


Pour ma part, j'aurais tendance à renvoyer 
tout le monde dos-à-dos : d'une part parce 
que ces deux disques durs sont bons. 
D'autre part, parce qu’il existe un standard 
Apple en matière de disques durs, c’est le 
SCSI (dois-je rappeler comment ça se 
prononce ?), qui a entre autres l’énorme 
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avantage de permettre de chaïner les 
engins SCSI, et d’être compatible avec le 
Mac. Ni l’Inner Drive ni le Vulcan, par 
ailleurs tous deux très bons, ne sont 
chaïnables. 

Il y a déjà des disques durs SCSI 
disponibles (chez Apple et chez ToolBox, 
et dans nombre de boutiques Mac). 
Cirtech prépare pour l’ Apple // un de ces 
disques durs tout entiers contenus sur une 
carte dans un slot que l’on connaît chez 
les galériens, mais avec un port SCSI 
pour brancher la suite. Et il semble que 
l'avenir est dans les lecteurs de disquettes 
haute capacité, ou si l’on préfère les 
disques durs amovibles. American 
Micro Research et Create Techno- 
logy en fabriquent pour le Mac, qui 
fonctionnent parfaitement sur un Apple // 
SCSI. 


# Rams : la baisse 


Au moment où j'écris ces lignes, les 
puces 1 Mégabit sont à 128 F HT pièce 
(1 000 F HT le méga) chez ICAR à Gap. 
Attention, les prix changent souvent, 
téléphonez avant. Et n'oubliez pas que 
quand on se groupe pour acheter, on peut 
négocier. 


Merci à Mr Mangin pour l'adresse : si 
vous en connaissez d'autres, nous 
sommes preneurs. 


Patchworks 


y Sauvetage 
AppleWorks 


Vous avez bien failli être privés 
d“Apple // For Ever” ce mois-ci : quand 
la confiture de framboises (!) se répand 
jusque sur la disquette de backup, le 
désastre est en vue. Après nettoyage, il 
restait un fichier traitement de textes 
AppleWorks dont seul le dernier bloc était 
abîimé. Que faire pour le récupérer, 
sachant qu'AppleWorks refusait de le 
charger ? 

J'aurais pu demander à Apple Works de le 
charger comme un fichier texte, mais je 
n'avais plus le temps d’enlever “à la 
main” tous les détritus de fin de ligne. 
J'ai bûché Lurot (Pom’s 42, page 11) 
pour essayer de reconstituer une fin de 
fichier acceptable par AppleWorks (en 


ne suis arrivé qu'à faire planter 
sauvagement AppleWorks. 

Si vous lisez ceci, c’est donc grâce à... 
AppleWorks-GS ! Le grand frère 
d’AppleWorks est beaucoup moins 
exigeant que lui dans le chargement des 
fichiers AppleWorks, parce qu'il les 
convertit au fur et à mesure, et qu’il prend 
tout ce qui est bon dans le fichier. On 
sauve ensuite sous forme de fichier texte, 
et le tour est joué. Espérons que ce truc 
fonctionnera d’autres fois. 


# Buffer : méfiance 

Ayant utilisé à peu près de toutes les 
façons possibles le buffer des ports série 
du GS, ayant même préparé pour Pom's 
une routine de configuration du buffer à 
64K0, j'en suis arrivé à une conclusion 
nette : il ne faut pas se servir du buffer du 
GS, il est buggé. Si vous choisissez 
l'option 2Ko, SuperPolices plante après 
les dix premières lignes. Si vous le 
poussez à 64Ko, quand le buffer sera 
saturé, il vous supprimera quelques pages. 
Attendons les nouvelles Roms pour voir 
si les bugs seront réparés. 


# Patch Tarzan 


Ceux qui ont le Sysbeep de la disquette 
DPA 10, et les nouvelles DPA de sons 
GS, ont désormais des “Bip” fort 
exotiques sur leurs GS. Dommage 
qu'AppleWorks ne les utilise pas, 
préférant son propre bip. 

Le patch qui suit (présenté sous la forme 
“standard Pom'’s” : une macro Ultra- 
Macros) m’a donné une des plus belles 
tranches de rire de mon existence, quand 
ma femme, non prévenue, a entendu 
AppleWorks lui envoyer le cri de Tarzan 
en guise de message d'erreur ! 

Ce patch/macro est tout simple et 
inoffensif : il détourne le bip d’Apple- 
Works (vecteur en $1115, merci à Daniel 
Lurot qui sait tout ça par cœur) vers une 
mini-routine en $300, laquelle, sans 
interdire le “onerr” d’UltraMacros, se 
contente de renvoyer vers le bip 
“ordinaire” de la Rom (SFBDD). 
Simplement, sur GS, ce bip est lui-même 
détourné vers Tarzan par Sysbeep. 


start 

<ba-]> :<all><poke 6197, 0 : poke 
6198, 3 : poke 768, 44 : poke 7 
6,130 : poke 770, 192 : poke 77 
1, 32 : poke 772, 221 : poke 77 
3, 25 : poke 774, 44 : poke 775 
» 131 : poke 776, 192 : poke 77 
7, 44 : poke 778, 131 : poke 77 
9, 192 : poke 780, 96> ! 

end 


| mettant des FFFF à la fin, etc.), mais je / Bon nes vacances, 


Éric ! 


L'ami Éric Weyland, occupé par ToolBox 
et ses vacances auprès des petites 
anglaises, me transmet quelques patches à 
AppleWorks bruts de décoffrage, en 
espérant que je vais me charger d’en faire 
de belles macros. Il se trompe : je les ai 
simplement essayés, et je vous les 
transmets tels quels. Bonnes vacances, 
Éric ! 


®  AppleWorks a un bug irritant quand 

il charge des fichiers textes : si vous 
avez une ligne continue de plus de 60 
caractères sans espace dans le fichier texte, 
AppleWorks vous rajoute de force un 
espace à la colonne 61. Pour ôter ce bug : 
trouver dans le fichier SEG.MI1 la chaîne 
hexa E0 3D 90 CF EO 41 et la remplacer 
par EO 41 90 CF EO 41. 


@ Les flèches en “-->"” d'AppleWorks 

seront avantageusement remplacées 
par le / des caractères souris quand il 
s'agit de cocher un choix dans une liste. 
Pour ce faire, trouver dans AplWorks. 
System (ou AplWorks.Sys) la 
chaîne hexa 8C 60 04 20 2D 2D 3E et la 
remplacer par 8C 60 04 20 20 20 Ca. 
Trouver dans SEG.M1 les chaînes 31 60 
03 2D 2D 3E et 46 60 03 2D 2D 3E et 
remplacer à chaque fois le 2D 2D 3E par 
20 20 C4. Attention, ne pas remplacer les 
autres chaînes en 2D 2D 3E. 


Encore une partie 
et j’éteins 


# Kill A Mac 


C’est le jeu le plus drôle que j'ai vu cette 
année sur le GS. C'est aussi celui qui 
démontre le mieux les possibilités 
d'animation graphique, de “scrolling”, de 
jeu sur les couleurs, du GS. C'est le 
premier logiciel qui reconnaît la 
Transwarp. Il est bourré de ce qu’on 
appelle là-bas des “œufs de Pâques”, 
c'est-à-dire des surprises cachées, des 
blagues partout. 

Essayez de bouger le joystick pendant le 
chargement du jeu, regardez comment on 
calibre le joystick, accédez au tableau de 
bord, faites des erreurs, informez-vous sur 
les auteurs, j'en passe et des meilleures. 
Un humour dément. 

Le principe n’est guère plus compliqué 
qu’Arkanoid c'est un tir, tout 
simplement, il faut abattre des cibles. Ces 
cibles sont des bugs, des disquettes, et 
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surtout. des Macs. Vous avez 2 min 15, 
c'est tout, pour sauver l'Apple //. 

Le nom de ce jeu ? As the Link 
Turns (ATLT). Son prix ? Gratuit, 
domaine public, eh oui. À ce prix-là, avec 
cet humour-là, cette technique-là, c’est 
Wozniak qui est de retour ! Ça, c’est 
l'esprit Apple //, bon sang, et vous savez 
qui diffuse ce jeu ce jeu iconoclaste et 
gratuit ? Apple, bien sûr, sur Apple 
Link ! Ramez, galériens : Apple // fort, 
et vert ! 

Vous le trouverez bien entendu sur les 
nouvelles DPA de ce numéro de Pom's. 
Attention, il faut le lancer sous GS/OS 
(lancez /ATLT/PROG/ATLT.SYS16), et 
il faut ABSOLUMENT le voir en 
couleurs (dites, ce n’est quand même pas 
le prix du câble GS/Péritel qui vous 
retient ?). Allez, bonne chasse ! 


# Privilèges 


Avouez-le : depuis que vous avez eu la 
disquette de démo gratuite, vous bavez 
d'envie. Des dessins magnifiques, des 
sons d'enfer, des caractères animés d’un 
écran de haut pilotés au joystick, 4 Mégas 
de dessins et de sons, c'est vrai. Cela 
s'appelle Sword of Sodan, de 
Discovery Software, c'est désormais 
LE standard du jeu d’arcade sur GS. Et 
vous vous morfondez en l’attendant. 


Sachez, impatients, que quelques 
privilégiés dans le genre “Contributing 
Editor to a french Apple Magazine” (eh, 
eh...) ont pu “tester” (c'est-à-dire jouer 
avec) une “pré-version” (entièrement 
fonctionnelle en fait) de Sword of Sodan. 
Alors voilà : le jeu est bien du niveau de 
ce que promettait la démo. 


Une richesse de graphismes et de sons 
extraordinaire, des animations qu'on ne 
croyait pas possibles. 

Une seule “critique” des “testeurs” : le jeu 
est peut-être un peu facile. En dehors des 
passages où ces satanés stalactites vous 
tombent dessus et ceux où ces damnés 
pieux sortent aléatoirement du sol, on tue 
assez facilement les ennemis en jouant 
beaucoup à genoux. Bref, on s’en sort en 
cinq ou six heures. Mais cinq ou six 
heures qu’on ne regrette pas ! 

Donc, soyez patients, ça vaut le coup. Au 
moment où vous lirez ces lignes, il sera 
temps d'envoyer votre commande. Et si 
votre version est un peu plus difficile, 
vous saurez à qui vous en prendre. 


# AIlô, Michel. 


— Ah, c'est toi, Jean-Yves ? Tu 
tombes bien, je suis en panne de 
lunarium, tu ne pourrais pas m'envoyer 
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ce que tu as ? Tu comprends, si les nazis 
#arrivent avant moi sur la lune, je ne 
pourrais plus sauver la fille du professeur. 
— Euh, ça va Michel ? Tu pourrais 
t'expliquer un peu ? 
— Je te parle de Rocket Ranger, 
bien sûr, le dernier Cinemaware. 
Une combinaison de jeu d'action et de jeu 
de stratégie très bien faite, avec la qualité 
réellement cinématographique de Cinema- 
ware. Ce coup-ci, c'est le genre 
super-héros, mais avec énormément 
d'humour, et une qualité d'animation que 
je n'avais pas vue jusqu'ici. Mais si tu 
n’arrives pas à rattraper le Zeppelin au 
départ, après il te faudra du lunarium, tu 
comprends. Bon, promis, tu m’envoies le 
tien ? 
Lecteurs, je voudrais vous demander deux 
choses : d’une part, achetez Rocket 
Ranger. J'ai entendu dire que 
Cinemaware, qui est de très loin le 
meilleur éditeur de jeux GS, avait des 
difficultés en ce moment (comme 
d’ailleurs nombre d’éditeurs de jeux, à 
cause de la concurrence des consoles genre 
Nintendo). Il faut qu’ils sachent que nous 
voulons qu'ils continuent. Ensuite, 
envoyez votre lunarium à Michel, aux 
bons soins de Pom's. Merci. 


# En vrac 


®© The Hunt for the Red October, 
de The Software Toolworks 
(ChessMaster 2100), reprend agréa- 
blement le roman du même nom, c’est 
une excellente simulation d'un 
sous-marin nucléaire hyper-moderne. 
Mais pourquoi empêcher de le mettre, 
comme ChessMaster, sur le disque dur ? 


@ “Tout fout le camp, ma bonne 

dame” : déjà qu'on ne trouve plus de 
bons fromages, que le Mac a des slots, 
que les curés s’habillent en blousons 
noirs, qu’on fait des piles sur l’Apple //, 
et voilà maintenant qu’il y a des images 
dans les Infocom ! Eux qui étaient 
spécialisés dans les jeux d'aventure en 
mode texte pur, voilà maintenant qu'ils 
commencent avec Shogun à mettre des 
illustrations. Très belles illustrations, 
j'en conviens, qui n’enlèvent rien à la 
qualité du jeu, au contraire, mais enfin, 
quand même, quand on sait que ce n'est 
que le début d’une nouvelle série, où 
va-t-on, je vous le demande. 


®  Silpheed, de Sierra On Line, 

c'est le retour, mais sur le GS, avec 
les graphismes et le son du GS, des 
Defender du bon vieux temps. Jeu d'arcade 
amusant et sans prétention, mais avec 
plein de tableaux : tout n’est pas perdu, 
ma bonne dame. Et en prime, Silpheed, 
lui, se met sur le dur. 





@ Balance of Power 1990, de 
Mindscape, c’est la mise à jour 
sur GS de cet excellent jeu de géopolitique 
qui avait tant plu sur Mac. 
Mise à jour du point de vue de la 
programmation, avec la couleur du GS, 
mise à jour du point de vue de la 
complexité du jeu, avec un Tiers Monde 
plus autonome, un jeu multipolaire. 
Reste qu'il est, comme la géopolitique à 
la Kissinger, chaque jour de plus en plus 
dépassé du point de vue politique : 
dépêchez-vous d’enfoncer les Rouges 
(sans lancer la 3ème Guerre Mondiale, 
attention), avant que Gorbatchev n'adhère 
au FMI... 


# À suivre 


Pas eu le temps de tout déballer. 
Rendez-vous dans un prochain Pom's 
pour parler de : 


@ Lords of the Rising Sun de 
Cinemaware ; 

@ Neuromancer GS (la version 
Ile est déjà excellente) d’Acti- 
vision/Médiagénic ; 

® BattleChess, le jeu d'échecs 
dément, toujours d’Activision/ 
Médiagénic ; 

@ Halls of Montezuma d'Elec- 
tronic Arts ; 

® Pinball Wizard, le “Pinball 
Construction Set” GS d’Accolade ; 

@ Bad Street Brawler de Mind- 
scape. 


# Carmen 


La série des Carmen San Diego, de 
Broderbund, connaît un succès mérité : 
ces jeux ont beau être éducatifs (ils le 
sont), on s’en moque, on joue pour le 
plaisir. La géographie est en prime, mais 
on n'évitera guère de consulter les 
équivalents US de nos Guides Bleus qui 
sont livrés avec le jeu. 

La version GS de “Where in the World is 
Carmen San Diego ?"” a de superbes 
graphiques. Certains grincheux la 
trouvent lente : c’est tout simplement 
qu’il faut la lancer avec GS/OS 5.0. 


Qui dit géo dit histoire : on attend pour 
cet automne “Where in Time is Carmen 
San Diego ?”, ou Carmen fera des 
voyages dans le temps. Le logiciel sera 
accompagné d’une encyclopédie de 1300 
pages ! 
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16 bits 


# Système 5.0 : bravo 


Finalement, ça y est, et c’est est allé 
plutôt vite : espérons qu’ Apple ne mettra 
pas beaucoup plus de temps entre son 
annonce du système 7.0 pour le Mac et sa 
sortie effective qu’il n’en aura mis pour le 
système 5.0 du GS. Je voudrais tout de 
suite dire trois choses à ce sujet : 


© à Apple : bravo. C’est un magni- 
fique ensemble, un développement 
de très haut niveau. J'ai toujours dit 
qu’Apple avait tous les défauts du monde, 
et une seule qualité indiscutable : il fait de 
bonnes machines (et ça tombe bien, parce 
que dans le fond, qu’attendre d’autre d’un 
fabricant d'ordinateurs ?) ; 
@ aux développeurs : s’il vous plait, 
chargez vos segments par leur nom, 
et pas par numéro. C’est tout ce qui est 
exigé pour bénéficier de l'ExpressLoad du 
5.0, et au fond, n'est-ce pas la pratique 
normale ? 


® aux utilisateurs : je serais vous, 
j'irais réserver tout de suite mon 5.0 

français chez mon concessionnaire. On 

s'arrache les nouveaux systèmes, sur GS. 


Et, même si tout est fait pour une 
transparence maximale pour l'utilisateur, 
il faut comprendre ce qui se passe, si on 
veut pouvoir tirer le maximum d’un 
système si complexe. Pierre Demblon 
s'est engagé à faire pour le 5.0 français ce 
qu'il a fait pour le 3.1, mais ça ne 
remplace pas les documentations utili- 
sateur officielles Apple. 


Deuxième conseil, toujours le même : de 
la mémoire, encore de la mémoire. Le 
Finder fait à lui seul plus de 200 blocs, je 
ne parle pas des nouveaux outils, CDEV 
et Cie. 


La pente est irréversible, et l’on est 
retourné à des prix très honnêtes sur les 
Ram. Le choix d'Apple, pour le moment, 
c'est l'accélération par soft : le coût, c'est 
la mémoire. Mais vraiment, ça vaut le 
coup. Et comment s'étonner que le GS 
s’étende… par son slot d'extension ? 


Si vous n'avez pas assez de mémoire, 
vous allez me dire que je raconte des 
blagues, parce que le 5.0 marchera, mais 
sans ses accélérations. Même Glen Bredon 


l’a accepté dans son Merlin 16 : le prix de 
la vitesse, c’est le gaspillage de la 
mémoire. C'est un point sur lequel il faut 
nous libérer (pas totalement, n'exagérons 
rien) de la “mentalité Apple //” de la 
chasse à l’octet en trop. 


# Système 5.0 : 
l’accélérateur soft 


Les choix d'Apple sont nets, et 
clairement proclamés : dans l’état actuel 
des choses, accélérer le GS par hard 
coûterait assez cher aux utilisateurs, et 
n'accélérerait que les nouvelles machines. 
C'est donc par soft qu'on va le faire, de 
façon à accélérer toutes les machines et à 
ne coûter éventuellement que le prix de 
quelques puces Ram. Pour l'accélération 
hard, voir Transwarp. 

En d’autres termes : il y aura bien sous 
peu une nouvelle carte-mère de GS, au 
moins de nouvelles Roms, puisque 
ISYSTEM.SETUP du 5.0 inclut un 
fichier TS3 (Tool Setup 3), tout petit, 
pour ces nouvelles Roms. Mais il ne sera 
pas particulièrement accéléré. 

J'ai déjà critiqué ici cette course à la 
vitesse d'horloge du microprocesseur 
qu'on voit ailleurs, qui se traduit par des 
gains quasi-nuls, ou infimes, pour 
l'utilisateur. Un bègue ne parlera pas 
mieux en parlant plus vite, mais il parlera 
plus vite en parlant mieux. Le système, 
l'interface entre l'utilisateur et les 
applications, devient de plus en plus 
décisif de nos jours. Avec le 5.0 sur GS 
comme avec le 7.0 sur Mac, les 
révolutions logicielles majeures ne sont 
plus apportées par les applications (qui ne 
sont après tout que des interfaces avec la 
ToolBox), mais par les systèmes. Je 
comprends donc très largement ce choix. 


De toute façon, un accélérateur hard 
accélère tout, mécaniquement, d’un facteur 
2 ou 3. Un accélérateur soft, se 
concentrant sur les points cruciaux qui 
ralentissent (le chargement, les fenêtres), 
peut accélérer d’un facteur 10 ou 15. Pour 
rouler plus vite, avoir une voiture plus 
rapide ne change rien si l’on va de 
bouchon en bouchon. Ce qu’il faut 
d’abord, c'est faire sauter les bouchons. 
Le système 5.0, cela veut dire 
AppleWorks GS chargé en 15 secondes, 
voir ci-dessous (mais pourquoi diable 
acceptions-nous si mal qu’AppleWorks 
GS mette autant de temps à se charger sur 
3,5” qu’AppleWorks 8 bits n’en met sur 
5:23" 7), 

Cela veut dire aussi des drivers de SCSI et 
de disque 3,5” réécrits, ultra-rapides. Sur 
3,5”, ne vous occupez plus de l’entre- 
lacement au formatage de vos disques : il 
est de toute façon de 1x1, le plus rapide 


possible, au niveau du driver, qui lit toute 
la piste en mémoire, puis transfère les 
blocs demandés (en gros, ce que faisait 
Diversi-Cache en plus du cache). 


Cela veut dire aussi un temps de passage 
aller-retour entre GS/OS et ProDOS 8 
considérablement réduit, GS/OS restant 
en mémoire (une remarque d’ailleurs : tant 
qu'on y est, pourquoi ne pas mettre P8 en 
réserve en mémoire ? Il n’est pas si gros). 
De la même façon, QuickDraw et les 
autres outils graphiques sont considéra- 
blement, mais vraiment énormément, 
accélérés, ainsi que les outils pour 
l'impression, et même le Memory 
Manager. Je me suis même surpris à 
utiliser le Finder pour copier des disques, 
mais si ! 


# Système 5.0 : 
le Dunlopillo de 
l’utilisateur 


Le 5.0 apporte également un paquet de 
“plus” qui sont autant de confort en plus 
pour l'utilisateur, ainsi d’ailleurs que pour 
le programmeur. 

Commençons d'ailleurs par le 
programmeur : un éditeur de texte plein 
écran, graphique, est dans la boîte (les 
éditeurs et traitements de textes vont 
beaucoup se ressembler, bientôt). Un 
Ressource Manager nous donne ce super 
confort du Mac : faire la version 
norvégienne sans même recompiler. 
Alors, dès que nous aurons le ResEdit 
(qui va faire le premier ?), il va être bien 
difficile de distinguer entre la “partie Mac” 
et la “partie GS" de Pom's ! D'autant que 
nous aurons de plus en plus les mêmes 
applications (eh oui : on ne programme 
plus une machine, encore moins un 
microprocesseur, on interface une boîte à 
outils). 

Sans compter diverses commodités pour 
programmeurs, que je ne détaille pas ici : 
sachons seulement que le service est bien 
fait dans la maison Apple. 


Pour l'utilisateur, un driver de carte 
parallèle qui accepte la parallèle Apple 
(vous savez, la Wozniak pur jus) ; le 
tableau de bord en NDA sur le bureau, 
avec les CDEV du Mac; un menu de 
CDA qui défile, jusqu’à je ne sais pas 
combien de CDA. Même chose d’ailleurs 
avec les NDA, les CDEV et avec tous les 
menus, qui pourront défiler (jusqu’à 255 
items dans un menu, ça fait combien 
d'écrans, ça ?). Les dialogues pourront 
désormais inclure des menus (“pop-up 
menus”). 

En plus de tout ça, un P8 version 1.8 
(comme le temps passe...) qui permet des 
noms de volume en minuscules pour 
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GS/OS, fixe un petit bug de Delete, peu 
de choses. 

En revanche, ils ont cette fois-ci touché à 
Basic System (version 1.3), pour y 
inclure les principaux patches faits 
jusqu'ici : correction du bug du Chain 
(bug réel, mais rare), un BSAVE qui 
permettra (enfin) de raccourcir un fichier 
(sauf si on utilise le paramètre B), la 
fameuse commande MON qui ne faisait. 
absolument rien est remplacée par un 
MTR qui remplace Call - 151 (accès au 
moniteur). 

Enfin, mais ça ne concerne que peu de 
monde sous nos latitudes, les réseaux 
Appleshare sont parfaitement intégrés au 
nouveau système (je trouve même que ça 
gonfle un peu beaucoup le Finder), on 
pourra avoir des GS sans aucun disque, qui 
démarrent (bootent) sur le réseau. 

J'ai oublié ce qui est peut-être l'essentiel : 
la structure même du système, modulaire 
au possible (FST, CDEVS, INITS, 
DRIVERS, TOOLS, etc.), très ouverte 
pour permettre toutes les évolutions, sans 
parler des limites quantitatives qui sont 
tombées (7 disques par slot, et 32 
partitions par disque, ça ira pour le 
moment). 

Tel que c’est parti, je risque d’avoir à dire 
mes “bravo Apple” tous les six mois. En 
tout cas, il y a une chose que je ne 
perçois pas bien : quelles sont les limites 
de ce système ? 


# Prosel 16 


Si j'ai attendu un peu pour vous parler de 
Prosel 16, c’est d’une part qu’il n’est 
pas facile à trouver : Glen Bredon le 
diffuse tout seul comme un grand (quand 
il n’est pas en vacances), et n’accepte que 
les mandats-poste internationaux. C’est 
d'autre part que j'attendais la version 
GS/OS, ce qui est le cas avec les versions 
EX 

Le seul véritable ennui que rencontrent 
Copy II Plus et Prosel 8 avec GS/OS, ce 
sont les fichiers extended, ou “fichiers du 
5e type”, voir Pom's 42. Jusqu'à présent, 
seuls Gribouille et le système 5.0 
utilisent ces fichiers. 


Si vous n’avez ni l’un ni l’autre, Prosel 8 
reste impeccable, vous n'avez pas besoin 
de passer à Prosel 16. Le 5.0 arrive, mais 
si vous n'utilisez que le sélecteur de 
Prosel 8, et pas ses utilitaires disque, tout 
marchera sans problème avec le 5.0, 
seulement plus vite. 

Ce qui caractérise Prosel 16, c’est d’une 
part qu'il est sous GS/OS : en 
conséquence, il reconnaît plus de deux 
disques par slot, il fonctionne avec les 
numéros de “device” et les préfixes de 


GS/OS. Concrètement, cela veut dire 
entre autres que je dois taper “3” à la place 
de “51”, et certains jours je confonds 
encore un peu. 

Il inclut aussi quelques caractéristiques de 
GS/OS (copie avec cache, sessions, 
reboot officiel Apple, etc), mais d’abord 
la vitesse du 5.0, et c’est l'essentiel. 

Les utilitaires Prosel, au lieu d'être 
séparés, sont désormais des segments du 
(gros) programme principal, au lieu d’être 
des fichiers à part (sauf Block Warden, 
qu'on peut de toute façon lancer par P8). 
Comme il récupère les fichiers Prosel du 
sélecteur et les écrans Prosel, et qu'il 
fonctionne de la même façon que Prosel 
8, on n’est pas dépaysé. 


Les “Backup” et “Restore” fonctionnent 
désormais par fichiers et non plus par 
blocs, si bien qu’on peut restaurer le dur 
sur une partition d’une autre taille (enfin). 
Glen Bredon doit faire des complexes 
face à APW : il a fallu qu’il mette dans 
Prosel un “shell” à la APW, avec des 
commandes disques comme il l’avait déjà 
fait pour Merlin, des fichiers exec (des 
“scripts”), etc. Du coup, on a une 
commande Help bien pratique. 

Quitte à faire des fichiers exec, j'ai 
toujours pensé jusqu'ici que Basic System 
avec ProCommand (de Glen Bredon) 
pouvait tout faire vite et bien. C'était vrai 
avec ProDOS 16, qui avait les mêmes 
limites que ProDOS 8. Ce n’est plus vrai 
avec GS/OS, où ProDOS 8 est dépassé. 
C'est peut-être bien Merlin 16 qui va le 
remplacer. 


Bon, je conclus : Merlin 16 est au 5.0 ce 
que Merlin 8 est à ProDOS 8. Sauf que, 
comme sélecteur et copieur de disques et 
de fichiers, il a un concurrent désormais 
très utilisable : à savoir le Finder. Pour le 
moment, il me semble donc que Merlin 
16 est indispensable seulement à ceux qui 
ont un disque dur, ou autres gros engins. 
Si vous avez, comme beaucoup, 1,2 
Mégas de mémoire, deux lecteurs 3,5” et 
un ou deux 5,25” pour la nostalgie, la 
combinaison Finder/Merlin 8 est très 
suffisante. Si vous voulez un sélecteur en 
mode texte, mais sous GS/OS, pour aller 
plus vite que le Finder, Squirt 16 (voir les 
DPA) y pourvoira. 

Ceci dit, Prosel 16 est un logiciel 
d’avenir, et bravo à Glen Bredon d'avoir 
su si vite et si bien digérer GS/OS. 


# AppleWorks 1.02 


Quelques-uns d’entre vous m'ont dit que 
j'avais peut-être été un peu trop 
enthousiaste pour AppleWorks GS. 
Précisons : essayez donc de retrouver le 





vieil AppleWorks 8 bits version 1.0, et 
utilisez-le ! Il faut, pour le moins, du 
rodage à des applications de cette 
envergure. 

AppleWorks-GS vient donc de subir sa 
première révision, celle des 1000 km. Et, 
déjà, les améliorations sont considérables. 
Le temps de chargement, d’abord : avec 
l’ExpressLoad du système 5.0, un 
fabricant de disques durs, par ailleurs 
excellents, se flatte de charger 
AppleWorks GS en 15 secondes. 

J'ai chronométré sur mon SCSI (un 
Seagatus vulgaris de gouttière, le plus 
ordinaire possible) : 15,5 secondes ! 
AppleWorks n'y est d’ailleurs pour rien, 
pas plus que le dur. C'est le système 5.0 
qui accélère à ce point-là. Sur disquette 
3,5”, le gain est tout aussi phénoménal. 
Même chose d’ailleurs pour le gain de 
temps à l'impression, considérable aussi : 
c'est le système qui fait tout, même 
l'impression en justification totale sans 
erreurs, bravo Apple. 

(Et ne venez pas me parler d'accélérateur : 
mon GS, n’est pas accéléré par la 
Transwarp, c'est le vôtre qui est ralenti 
par son absence. De plus, pour les temps 
de chargement, la Transwarp agit peu). 

À part cela, quelques petites modifications 
dans la Base de données (un “contient”, un 
“commence par” et un “finit par” dans les 
critères de recherche, ce qui évite les 
formules torturées nécessaires jusqu'ici, 
des cases toutes petites pour les 
mini-polices). Des modifications plus 
intéressantes dans le Paint : il accepte 
maintenant les images double-écran de GS 
Paint. Il a des palettes spéciales pour 
importer les dessins GS Paint et Deluxe 
Paint, comme avait déjà Multiscribe GS. 
Enfin, il inclut un programme de test des 
puces Ram, la crise ayant fait que nombre 
d'utilisateurs ont mis un peu n'importe 
quoi sur leurs cartes. 


Permettez-moi un dernier conseil aux 
utilisateurs : fermez les fenêtres. 1,2 
Mégas pour le 5.0 et AppleWorks GS, 
c'est déjà juste. Alors, pas de /RAMS5, 
pas d’accessoires, bien sûr. AppleWorks 
est très libéral dans l'ouverture des 
fichiers, il empile joyeusement les 
fenêtres. Seulement, quand vous avez 
laissé ouvert un fichier Paint dont vous 
n'avez plus besoin, et que vous travaillez 
dans la PAO, AppleWorks GS garde en 
mémoire non seulement l’espace pour le 
fichier, mais aussi tout le module Paint. 
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Un jour, forcément, ça coince. Il faut 
choisir : acheter des puces, ou fermer les 
fenêtres. 


# Trois infos 
en complément 


“ l'adresse de Claris Usa a changé, 
voir dans la rubrique adresses ; 


“ pour tous ceux qu'intéresse le débat 

absurde Mac ou GS, je recommande 
la lecture d’InCider de Juin (pages 54/55). 
InCider a eu l’idée de faire des tests 
précis : les mêmes travaux à faire avec 
Works sur Mac Plus et AppleWorks-GS 
1.02 sur GS, avec et sans Transwarp (par 
exemple, changer de police sur une page 
de texte, passer un texte entier de 10 en 
14 points sur la même police, remplacer 
un mot qui se répète dans un texte). Avec 
comme sans Transwarp, c'est instructif. 


w les lecteurs de Pom'’s n'ont pas les 

deux pieds dans le même sabot : l'un 
d'entre eux a envoyé à Claris USA une 
pétition qu'il a fait signer par ses amis 
demandant une version française 
d’AppleWorks-GsS. Claris a répondu, poli- 
ment, qu’il prenait note, et restait attentif 
aux demandes des utilisateurs. En bon 
français, cela signifie que plus Claris 
recevra ce genre de lettre. 


Plus de /RAMS5 


Combien de fois ai-je entendu parler de 
plantages, de Finder qui ne marche pas, 
sur des GS pourtant à 1,2 Mégas de 
mémoire, avant de comprendre la raison 
exacte : /RAMS. Avec GS/OS et les 
applications d'aujourd'hui, pas de /RAMS 
si vous avez 1,2 Mégas de mémoire : 
c'est le minimum pour que ça tourne. 

/RAMS est utile dans deux cas : si vous 
avez plus d’1,2 Mégas, ou bien si vous 
avez démarré et si vous restez sous 
ProDOS 8 (je dis bien : avoir démarré, 
booté en P8 ; si vous lancez P8 depuis 
GS/OS, pas de /RAMS). /RAMS peut 
servir, par exemple, à partager la mémoire 
entre AppleWorks et un disque Ram, 
mais à condition de travailler sous P8. 

Ne rouspétez pas : le 5.0 est un 
magnifique système, mais il lui faut de la 
mémoire, forcément. Le prix de la Ram 
baisse, et vous pouvez aller jusqu’à 8 


Mégas, et un jour 16. Songez à ceux qui 
sont limités à 640Ko, ou même à 4 
Mégas… 


#” Orca/C 


L'angoisse me gagne, je l'avoue : avec ce 
qui se passe sur Mac et sur GS, avec 
APW C et, maintenant, Orca/C, de 
Byteworks (qui sort avant Orca Basic, 
notons-le), ne va-t-il pas falloir, nous 
aussi, nous mettre au C ? 


Oui, je sais : C, c’est Unix, ça sent la 
galère. Ça a une syntaxe arbitraire, bon. 
Mais c’est un langage puissant, proche de 
l'assembleur en fait, et qui fait des 
applications portables, au moins entre 
Mac et GS. Et, dans le fond, il n’est pas 
plus arbitraire que ce bon vieil Applesoft. 
Et ce bon vieil Applesoft, il n’est pas 
éternel. 

En plus, Orca/C a un mini-assembleur en 
ligne qui inclut son code directement dans 
le source C, marche sous Orca/Desktop. 
On m'a rapporté quelques bugs et 
incompatibilités avec APW/C, mais ça va 
passer. Imaginons un débutant qui ne 
connaisse aucun langage : que lui 
recommanderiez-vous ? Pas l’Applesoft, 
en tout cas. L'’angoisse, je vous dis. 


# Gribouille : 
OK pour le dur 


Bon, désormais, avec le système 5.0 et 
Prosel 16 (mais seulement si vous les 
avez tous les deux), vous pouvez mettre 
Gribouille sur le dur, faire vos backups, 
vos défragmentations, etc. Avec le 5.0, 
Gribouille, qui est déjà rapide, devient 
instantané. 

Gribouille charge vite, imprime vite, 
travaille vite et bien. Et quand Madame 
Hodé en aura vendu assez, sûr qu'elle va 
songer au correcteur... 

Peut-être seulement une autre suggestion 
aux “collégiens” : quand je vois la 
documentation de Gribouille, imprimée 
avec Gribouille bien sûr, je me sens tout 
petit, je n'utilise pas 10% de ses 
possibilités. Et quand je vois les 
contributions des collégiens, je suis 
encore plus petit. Alors, je songe que 
Gribouille SARL, avec ses beaux locaux 
tout neufs, pourrait peut-être faire un peu 
de formation. 


130 pages de doc, aucune secrétaire ne lira 
ça toute seule. Il n’y a pas de honte à 
prendre des cours, encore moins à en 
donner ou à en vendre : il y a des 
enseignants qui en vivent (plutôt mal), 
après tout, et des entreprises qui 
s'engraissent (plutôt bien) avec la 
formation. 





À lire 


Infirmerie 


Prévenir vaut mieux que guérir, et cela 
coûte moins cher. Il est aussi bien 
pratique de guérir les petits bobos à la 
maison, et même de localiser les 
symptômes exacts avant d'aller voir le 
médecin. 

C'est ce que vous pourrez faire avec le 
livre “Apple Care Manual : Diagno- 
sing and Maintaining your Apple 
lle, lle and IIGS”, publié chez Tab 
Books par Chris Morrison et Teresa 
Stover. 

J'ai noté l'utilité des petits programmes 
de diagnostic pour chaque partie de la 
machine, et la qualité des illustrations 
(essentielle dans un ouvrage de ce genre). 


 *B942 : 18 


La revue Computist, essentiellement 
consacrée à la déprotection des logiciels 
Apple //, a rencontré des difficultés ces 
derniers temps, pour une raison d’ailleurs 
fort réjouissante : comme il y a de moins 
en moins de protection dans les logiciels 
Apple //, même sur les jeux, parce 
qu'éditeurs et utilisateurs sont devenus 
adultes, la revue devenait peu-à-peu sans 
objet. 

Ne restaient plus guère à “cracker” que 
quelques logiciels éducatifs sur disquette 
5,25", qui ne sont “protégés” que pour 
empêcher les élèves de tricher, et quelques 
softs qu’il vaut mieux de toute façon 
jeter. *B942 : 18, à la longue, ça lasse. 
Dans une telle situation, Computist avait 
deux choix : le premier, c'était d'essayer 
d'étendre son rayon d’action à l'IBM. Ça 
n’a pas marché, parce que, même chez les 
galériens, on ne protège plus guère; et 
parce que ça lui a immédiatement coûté 
mon réabonnement, entre autres. 

Elle s’est donc tourné vers la seconde 
solution : d’une part, faire une revue 
moins chère, en sortant en format journal. 
De l'autre, ne plus se limiter aux 
questions de déprotection, mais 
fonctionner comme carrefour global des 
informations entre utilisateurs d’Apple //. 
Et là, je me suis réabonné. 


# TechNotes 


J'ai déjà écrit que les notes techniques 
Apple //, rédigées par Apple, étaient une 
lecture indispensable. Pour vous les 
procurer, avec leurs mises à jour 
régulières, plutôt qu’à l'APDA d'Apple, 
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demandez-les à A2 Central qui les met sur 
ses disquettes mensuelles, ou à 
Ampersand : notre éminent confrère, qui 
confirme que “fanzine” n'est pas le 
contraire de “pro”, les diffuse également. 


Help ! 


Ou bien je suis particulièrement nul, ou 
bien ils ont tort de les vendre à part : en 
tout cas, je ne peux qu'’exceptionnel- 
lement finir certains jeux sans les livrets 
d'aide (Hint Book, Clue Book, etc) 
vendus séparément par les éditeurs de 
logiciels de jeux. 

Pour L.A. Crackdown comme pour 
Subbattle, d’Epyx, le “Masters Col- 
lection Hint Book” vous donnera un 
bon coup de main. En plus, c’est bien 
pratique d’avoir les cartes toutes faites. 
Enfin, les interviewes des programmeurs 
sont fort instructives. 


# Midi Apple // 


Musiciens de toute compétence (du 
débutant au compositeur) et de tout 
équipement Midi, une revue mensuelle 
Apple // vous est spécialement dédiée : 
“Music, Midi, and Your Apple //” 
vous parlera mieux que moi d’Instant 
Synthé et de tout le reste. Attention, cette 
revue, diffusée par MMP Systems, 
n’est vendue que par abonnements. 
Rajoutez-y le dernier numéro du Buyer’s 
Guide (pas encore mensuel, mais 
toujours aussi bon), qui contient de 
bonnes études sur le GS et la musique : 
dites, Messieurs les profs de musique, 
avez-vous sérieusement songé au GS, ou 
bien en êtes-vous toujours à l’harmo- 
nium ? 


“æ Tant que j'y suis : MasterTracks Jr, 

de Passport Designs, a main- 
tenant un grand frère. Il s’appelle bien sûr 
MasterTracks Sr, et, pour résumer, 
c'est la version GS de MasterTracks Pro 
du Mac. Mac/GS même combat. 
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North Hollywood, CA 91605, USA 
Discovery Software 

163 Conduit Street, Annapolis 
MD 21401, USA 

Electronic Arts 

Electronic Arts Direct Sales 

P.O. Box 7530, San Mateo 

CA 94403, USA 





Epyx 

600 Galveston Drive, Redwood City 
CA 94063, USA 

Glen Bredon 

521 State Road, Princeton 

NJ 08540, USA 

Gribouille 

5 rue Humblot, 75015 Paris 

æ (1) 40 59 49 77 

ICAR 

z 92 52 22 65 ou 92 52 30 34 à Gap 
Infocom 

125 Cambridge Park Drive 
Cambridge, MA 02140, USA 

MGA Microsystems 

Pear Tree, Appledore 

KENT TN26 2AR, Angleterre 

z 0233-8357] 

Mindscape 

3444 Dundee Road, Northbrook 

IL 60062, USA 

MMP Systems 

20681 Celeste Circle, Cupertino 

CA 95014, USA 

Musicomp Computer Zubehôr 
Urs Brunner, Bottmingerstrasse 1 

CH 41-2 Binningen, Suisse 

æ 061 47 05 06 

Ohio Kache Systems 

4162 Little York Road, Suite E, Dayton 
Ohio 45414-2566, USA 

Pandasoft 

Uhlandstrasse 195, D-1000 Berline 12 
Passport Designs 

625 Miramontes Street, Half Moon Bay 
CA 94019, USA 

Roger Wagner Publishing 
1050 Pioneer Way, Suite P, El Cajon 
CA 92020, USA 

Sierra On Line 

5750 France Avenue South, Suite 123 
Edina, MN 55435, USA 

Tab Books 

P.O. Box 40, Blue Ridge Summit 

PA 17214, USA 

The Software Toolworks 

One Toolworks Plaza 

13557 Ventura Boulevard, Sherman Oak 
CA 91423, USA 

Toolbox 

35 Bild Richard Wallace, 92800 Puteaux 
æ (1) 47 72 27 36 

Zip Technology 

11926 Santa Monica Boulevard 

Los Angeles, CA 90025, USA 


CG 














Pom's Le Tarif 


* le numéro entre parenthèses indique la revue dans | 
laquelle le produit est décrit. | 





Revues 


n° 8à n° 26, chacune 
n° 27 à n° 43, chacune 


40,00 | 
45,00 


Recueils Pom'’s 


Ces recueils regroupent 4 numéros 
de la revue. (Recueil 5 à 8 épuisé) 


Recueils n° 1 à 4,9 à 12, chacun 


140,00 


Câbles communication 


Pour la mise en œuvre de ces câbles, 
se reporter aux numéros 27, 28, 30, 
31, 33 et 34 qui présentent les 
programmes de communication 
reliant ordinateur et Minitel. 
Préciser le ou Iles modèles 
d'ordinateur. 

Câble Minitel/ordinateur 


Câble Ordinateur/ordinateur 


225,00 | 
225,00 


Reliures 


Pour la protection et le classement 
de 6 numéros de Pom’s (un an) 


Reliure 75,00 | 


Disquettes Pom'’s, Macintosh 


Ces disquettes regroupent 
l'ensemble des programmes pour 
Macintosh d'une revue. Pro- 





grammes du domaine public, 
polices de caractères, nouveaux 
systèmes, etc. y sont ajoutés. 


3,5”, de la n° 16 à la n° 43, chacune 


Disquettes Pom's, Apple // 


Ces disquettes regroupent 
l'ensemble des programmes pour 

Apple // d'une revue. 

5,25" 140Ko, dela n° 1 à la n° 43, chacune 
3,5” 800Ko, de la n° 29 à la n° 43, chacune 


80,00 


80,00 | 


80,00 | 





Logiciels pour Apple // 


| Ces logiciels peuvent être livrés en 140 ou 
| 800Ko (préciser). Les logiciels américains sont 
accompagnés d'une documentation française. 


Tarif Joker& Tarif normal 


ChessMaster GS 800Ko (39) 630,00 700,00 
Arlequin 140Ko (39) 135,00 150,00 
Copy ][+ version 8.3 (37) 450,00 500,00 
ProSel (36) 450,00 500,00 
Compilateur Beagle (35) 675,00 750,00 
Big U 140Ko (35) 400,00 450,00 
Pom_Link 3.1 (34/35) 400,00 450,00 
InterPom's 2.0 (31) 540,00 600,00 
Clv_Pom's (31) 180,00 200,00 
EPE 5.1 (15/23) 180,00 200,00 


Logiciels pour AppleWorks 


Ces logiciels se greffent sur AppleWorks pour 
le doter de la souris, de polices de caractères 
etc. * UltraMacros comprend l'ensemble des 


| fonctions de SuperMacroWorks. 


Tarif Joker& Tarif normal 


ExtraFonts (43) 450,00 500,00 
TimeOut PowerPack (41) 
TimeOut FileMaster (41) PERS Tone 
TimeOut SpreadTools (41) 495,00 550,00 
MacroTools (41) 270,00 300,00 
TimeOut DeskTools 1 (41) 495,00 550,00 
TimeOut Paint(39) 270,00 300,00 
TimeOut SuperFonts (38) 720,00 800,00 
TimeOut UltraMacros (38)* 585,00 650,00 
TimeOut Graph (38) 765,00 850,00 
TimeOut SideSpread (38) 495,00 550,00 
PathFinder (38) 135,00 150,00 
SuperMacroWorks (33) 450,00 500,00 

| Polices de caractères 

| Ces polices de caractères de type Macintosh 

| fonctionnent avec AppleWorks & SuperFonts 
mais aussi avec Publish it!, MultiScribe. Une 
trentaine de polices par disquette 
‘Polices’ 001 à 018, 140 ou 800K0o, chacune 100,00 
Catalogue de référence Unipol 80,00 
Shareware Apple // 
Disquettes présentées dans lesnuméros38,39, 

| 41,42 & 43. 
DPA 001 à 022, 140 ou 800Ko0, chacune 100,00 


Pom’s n° 43 











Logiciel pour IBM PC 
hernie Dre Les Eesehs de Bon de commande 


Les Secrets de Multiplan* 175,00 
InterPom’s 540,00 600,00 





= — | Je désire recevoir: 
ZipChip Quant. Produit Prix total 


Nouveau processeur 4 Mhz pour les Apple / — 
/eet //c. Description dans le numéro 39 de 


Pom's. 

Tarif Jokeræ Tarif normal | 
ZipChip 4 Mhz 229000" °2500,00: | =—— | 
Port (urgent recommandé) 50,00 50:00! | == 


Logiciels pour Macintosh | — | 
Tarif Joker& Tarif normal 











Sargon 4 (40) 540,00 600,00 | —— 
Excel Efficace 175,00! | = 
MacAstuces 200,00 
Le Livre du Macintosh 200,00 | 
Copy II Mac version 7.2 (37) 450,00 500,00 | J'ai un lecteur Apple // 140Ko Q 
Pom_Link 3.1 (34/35) 400,00 450,00 TÉtéese ABSIS 7/ SO 
InterPom's 2.0 (31) 540,00 600,00 
Clv_Pom's (31) 180,00 200,00 Montant 
Raccourci (26) 180,00 200,00 | Port avion hors CEE 
15,00 F par revue et/ou disquette 





Shareware Macintosh 


Disquettes présentées dans les numéros 22 & 


Montant total 












Mac A, B, C, D, E, F, G, H, I, chacune 100,00 | Ma commande atteint 500,00 F, je désire recevoir une 
ADN (6 disquettes) 300,00 | invitation Apple Expo 
| oui / non 
C4 : = 
Abonnements 1 an (6 numéros) | Jerège Chèque 
| par : Carte Bleue/Visa/Eurocard/Mastercard 


L'abonnement à la revue Pom’s comprend 
l'attribution automatique de la carte ‘Joker’. | 
Celle-ci offre un accès privilégié à une | Expiration _ _/__ 
assistance téléphonique et donne droit aux | 


Numéro 


remises sur les produits Pom's. | sons 
Revue seule | 225,00 

Revue et disquettes Apple // 140Ko 625,00 

Revue et disquettes Apple // 800Ko 625,00 | Nom 

Revue et disquettes Macintosh 625,00 | Prénom 


Revue et disquettes Apple // 140Ko et Mac 1 025,00 | Adresse 


=. 


Gagnez du temps. Commandez 
par Minitel au : 









(1) 39 53 04 40 
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ee Macintosh 
ÉD de sauvegarde de li pat 





ie SSSR nRss _ 


- e Copie de là paper des. loicieh s sur 
RER | disque. dur | 


+ Réspéain | de qe endom- 


SÈSE magés el 


à | + Répéraion | . chers E effacés 
É - même Sur ur disque dur ÊSEs 


——1. 8 ————+ 


Copy ee. Hé avec € MacTooks 


1 Copy II Mac 7.1, Mac Tools, | 


avec documentation française : 500,00 F TTC. 
Abonnés (Carte Joker) : 450,00 F TIC 
=! Port: 20,00F 








MANUELS EN FRAN ANCAIS _ 


__e Utilisation de toute la mémoire dis- 


: ! ponible (un 800Ko en une passe par 
oops 


___ e Récupération de fichiers effacés 


Copy 7. ii 


__| compris Conversion  . 


+. Formatage de disques 
+. Classement alphabétique des fichiers 
0 Sauvegarde. de la plupart des 

logiciels. | | 





Copy I” Mac / Ma oo. . 





- |Éditions MEV/Pom’ s— 12. rue d'Anjou — = 78000 Versailles a 
(1) 39 51 24 43. Commande par Minitel au (1) 39 53 04 40 


&vy  CHESSMASTER 2100 
LE MAÏTRE 


nn Cours Bi-play Extras 


NIVEAUX DE JEU 


LE SOMMET DE LA REFLEXION INFORMATIQUE : CHESSMASTER 
2000 + L'EQUIVALENT DE 10 ANNEES DE RECHERCHE 

BIBLIOTHEQUE D'OUVERTURES CONSIDERABLE (PLUS DE 150000 
COUPS) 

NOMBRE ILLIMITE DE NIVEAUX DE JEU, DE DEBUTANT A GRAND 
MAITRE 

POUR CHAQUE NIVEAU, OPTION ‘JEU SIMPLIFIE’ 

EN MODE APPRENTISSAGE, CHESSMASTER 2 100 INDIQUE LES 
COUPS ET LES PRISES POSSIBLES 


TEMPS DE REFLEXION 


CHoIX DU TEMPS DE REFLEXION PAR COUP, PAR PARTIE, 
EGALEMENT EN COUPS PAR MINUTE ET TEMPS STANDARDS 
DES TOURNOIS 

OPTION TEMPS EGAL, OPTION ‘BLITZ’ 


DES AIDES 

CHESSMASTER 2 100 PEUT SUGGERER UN COUP, REVENIR EN 
ARRIERE ET REJOUER LES COUPS 

POSSIBILITE DE CHANGER DE COTE A TOUS MOMENTS 


% Floying Boord Display Extras 
RALANLLL108 È 
HAS HAX # 


8 








AFFICHAGE 


PoMm's VOUS PROPOSE 


AUJOURD'HUI SUR GS UNE 
EXTRAORDINAIRE VERSION 


DU MAITRE DES JEUX, 
CAPABLE DE 
PERFORMANCES 
D'EXCEPTION. 


UTILISATION DES RESSOURCES DU GS : SUPER HAUTE 
RESOLUTION, MENUS DEROULANTS, SOURIS... 

PENDULES TEMPS RÉEL A L'ECRAN 

AFFICHAGE DE L'ECHIQUIER EN 2D ou 3D 

POSSIBILITE DE DESSINER SOI-MEME LES PIECES, DE TOURNER 
L'ECHIQUIER PAR QUART DE TOUR, DE JOUER ‘A L'AVEUGLE' 

AFFICHAGE POSSIBLE DE VOS COMMENTAIRES SUR LES COUPS, 
DES PIECES DEJA PRISES, DE LA REFLEXION DE 


CHESSMASTER 


POUR PROGRESSER 


AFFICHAGE POSSIBLE DE LA REFLEXION DE CHESSMASTER 
POSSIBILITE D'ANALYSE DES PARTIES 
110 PARTIES DE MAITRES ENREGISTREES AVEC COMMENTAIRES 





SAUVEGARDE ET IMPRESSION DES PARTIES 


RESOLUTION DE PROBLEMES 
PARTIES A ‘AVANTAGES’ 


D'ECHECS 


MopE D'EMPLOI COMPLET POM’S, EN FRANCAIS, COMPRENANT 
UN MANUEL D'APPRENTISSAGE DE LA FEDERATION US 
D'ECHECS ET UN HISTORIQUE DES ECHECS PRESENTANT LES 


MAITRES 


DE PLUS, VOTRE GS PARLE... 


Éditions MEV — 12, rue d'Anjou — 78000 Versailles © (1) 39 51 24 43 — Minitel (1) 39 53 04 40 


Sn 


. 


RE WA 


SE 7 ET 





Vends Apple IIGS neuf 1 Mo, écran 
couleurs Apple, 1 lecteur 5,25", 1 
lecteur 3,5" 9 500,00 F — Modem 
Digitelec 800,00 F. 

Louis Lebras 

4, rue de Ligné 

37520 La Riche 

æ 47 39 08 81 


Vends pour //e Carte Chat Mauve 
64Ko 900,00 F — Carte CP/M Z80 
300,00 F. 

Michel Ducoin 

| æ 40 49 31 36 


Vends Apple //e avec carte AppleTel, 
carte parallèle, 2 lecteurs, 1 
imprimante, 1 joystick, moniteur 
monochrome. 

Ken Timsit 

& 43 20 64 75 


Vends Apple IIGS 1,2 Mo couleurs, 
lecteur 5,25", lecteur 3,5" 6 000,00 F. 
P. Foulhoux 

æ (1) 42 53 04 81 après 19h 


Vends Apple IIGS couleurs 1256Ko, 
2 lecteurs 3,5", carte stéréo 8 000,00 
F — Carte AppleTel nouveau modèle 
|! 2 000,00 F. Livraison possible. 

| Philippe Gabeloux 


Montpellier 
z 67 47 11 23 





Vends Apple IIGS 1,28 Mo 
extensible à 1,5 Mo, 1 lecteurs 3,5", 
1 lecteur 5,25" 8 000,00 F 


Daniel 
æ (1) 45 83 79 66 


Vends Mac 128 Ko avec ImageWriter 
I, tous deux en excellent état, 
ensemble pour 5 000,00 F, ou 
4 000,00 F pour le Mac et 1 500,00 
F pour l'ImageWriter. 

Mme. Pieri 

æ (1) 60 19 10 00 


Horizontalement 


1 - Baba 

2 - Mirent fin 

3 - Très rouge 

4 - Dégustation lente 


5 - Vis - Nob, ailleurs - Tête de poète 


6 - Arabisa 

7 - Atome - Bière - Irrationnel 
8 - Communes 

9 - Issue - Haler 





Vends Macintosh SE 1 méga HD20 
19 000,00 F. 

Olivier Dupont 

æ (1) 47 39 47 40 travail ou (1) 42 
74 73 07 après 20h. 


Zh ou NP uoryntos 





10 - Peuvent donc se reproduire - Lieu d’errance 


Verticalement 


1 - Pardonnerions 

2 - Roi des Bretons - Lisière 

3 - [lparalyse - Sommaire 

4 - Ville d’'URSS 

5 - Fortifiante 

6 - Africain 

7 - Irlande - Politi- 
cienne étrangère 

8 - Demeur ai - 
Remarque 

9 - Entier - Attend 

10 - Accrochais 


1 


Problème 43 
par 
Joëlle Piard 











3 4 5 6 7 8 9 10 


ERRNRENSENE 
JERRERSERRR 
RUESRERESE 


Dame n° 12 















ÎL EST DANS LA MICRO-INFORMATIQUE 
APPLE DES NOMS MAGIQUES. GLEN 
BREDON EST DE CEUX-CI. ÎL EST DES 
PROGRAMMES QUI SIMPLIFIENT L'INFOR- 
MATIQUE, QUI OFFRENT SOUPLESSE ET 
LIBERTE. PROSEL EST DE CEUX-CI. 
PROSEL, nat GÉLecTOR, EST 


AVANT TOUT UN SELECTEUR D'APPLICA- 


TIONS, UNE FAÇON RATIONNELLE DE 
TRAVAILLER. ÎL OFFRE; E. 


PROSEL EST AUSSI UN ENSEMBLE 
D'UTILITAIRES. — RECHERCHE DE 
FICHIERS DANS LES DOSSIERS — DUMP 
DE TOUS FICHIERS EN ASCII OU TEXTE — 
SUPPRESSION LOGIQUE DE VOLUMES 
PRODOS INUTILES A UNE APPLICATION 
—  EXECUTION  PROGRAMMEE 
D'APPLICATIONS AVEC MINUTAGE DES 
SEQUENCES DE TRAVAIL. — 
CONSTITUTION D'UNE MEMOIRE-CACHE 
— GESTION DES SAUVEGARDES ET 
RESTITUTIONS DE TOUT VOLUME 
ProDOS (DISQUES DURS SUR 
DISQUETTES) — PROGRAMME DE COPIE 
UNIVERSEL ET DE MANIPULATION DE 
FICHIERS Y COMPRIS RECUPERATION DE 
FICHIERS EFFACES — ANALYSE DE 
L'OCCUPATION DES DISQUES, ARBRE DE 
CATALOGUES, AFFECTATION DES BLOCS 
— REORGANISATION DES DISQUES — 
RECUPERATION DE DISQUES ABIMES — 
PROTECTION D'APPLICATIONS PAR MOT 
DE PASSE — FORMATEUR POUR LES 
DISQUETTES 3,5 POUCES EN DOS 3.3 — 


LA LIBERTE EST ACCESSIBLE : 500,00 F Y 
COMPRIS DOCUMENTATION FRANÇAISE, 
PorT 20,00 F. TARIF CARTE JOKER : 
450,00 F — Epirions MEV/PoM's 
12, RUE D'ANJOU — 78000 VERSAILLES 
© : (1) 39 51 24 43 - COMMANDE PAR 
MiNITEL AU : (1) 39 53 04 40 









SUR LES APPLE, PROSEL... 
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La quatrième Génération 


Le célèbre programme 
d'échecs Sargon 4 est 
aujourd'hui doté de l'un 
des algorithmes de 
réflexion les plus puis- 
sants. 


145 000 coups 
d'ouverture 


Il offre une biblio- 
thèque d'ouvertures de 
145 000 coups qui lui 
permet d'économiser un 
temps précieux en 
début de partie. 


Sargon 4 joue fort bien 
et est à même de 
s'adapter à tous les ni- 
veaux. 





À la portée 
du débutant 


Sargon 4 pense aux 
novices : 

Le livret explicatif 
donne les bases 
nécessaires. Un niveau 
de jeu spécial ‘débutant’ 
est prévu. 


Il est en outre possible de re- 
venir en arrière, de changer 
de camp, de modifier les po- 
sitions.. et même de suivre 
la réflexion de Sargon. 





Affichage 3D 


Sargon 4 présente la table 
d'échecs en deux ou trois di- 
mensions (perspective) avec 
cinq jeux de pièces. 


Sur Macintosh II, l'affichage 
est en couleurs, rendant 
ainsi l'échiquier encore plus 
lisible. 


Des pièces éditables 


Vous dessinerez vous-même 
vos pièces pour l'affichage en 
perspective. Vous pourrez 
aussi modifier les formes et 
couleurs des jeux de pièces 
proposés. 


Sargon 4 sait rejouer toute 
une partie en analysant 
chaque coup ; cette méthode 
d'apprentissage est incompa- 


rable. Et, pour aller plus loin, vous étudierez 
les 107 parties célèbres que Sargon vous 
propose. 


Et de plus... 

Sauvegarde, impression des parties 
Pendules d'échecs à l'écran 

Affichage des coups joués 

Changement du sens de l'échiquier 
Recherche de mats 

Temps de réflexion de 5 secondes à l'infini 
Parties à temps limité 

Possibilité de proposer le nul... 


Sargon 4 fonctionne sur Macintosh 512 avec 
lecteur 800Ko, Mac Plus, Mac SE et Mac II. 


Guide d'apprentissage et 
mode d'emploi complets 
Traduction intégrale 





Éditions MEV Revue Pom's 
12, rue d'Anjou — 78000 Versailles 
# (1) 39 51 24 43 - Minitel (1) 39 53 04 40 


Essai dans le numéro 40 de Pormn's 
Bon de commande en fin de ce numéro 


